with FormNorma.TechProcQuery do begin
  sql.Clear;
  SQL.Add('insert into stp (tpr, ntp, wtp, obr, Pok, podr, dizm,  priz) ');
  SQL.Add('values (:tpr, :ntp, :wtp, :obr, :Pok, :podr, :dizm, :priz)');
  Parameters.ParamByName('tpr').Value:=Trim(NumMaskEdit.Text);
  Parameters.ParamByName('ntp').Value:=Trim(NaimMemo.Text);
  Parameters.ParamByName('wtp').Value:=Trim(VidTextEdit.Text);
  Parameters.ParamByName('obr').Value:= Trim(OborudTextEdit.Text);
  Parameters.ParamByName('pok').Value:=' ';
  Parameters.ParamByName('podr').Value:=Trim(UchastokMemo.Text);
  Parameters.ParamByName('dizm').Value:=Trim(DateToStr(Dizm));   ?????????????
  Parameters.ParamByName('priz').Value:=' ';
  ExecSQL;
  end;
  FormNorma.TechProcQuery.Close;
  FormNorma.TechProcQuery.SQL.Text:='select tpr, ntp, wtp, obr, podr from stp.DBF ';
  FormNorma.TechProcQuery.Open;
  TechprocessFildName;

  RedactorMatForm.DataEdit.text:=s;
  s:=FormatDateTime('{^yyyy/dd/mm}', Date);
  with MatForm.MatQuery do begin
  close;
  SQL.clear;
  SQL.Add('Update unr set obm='+RedactorMatForm.OBMTextEdit.Text+', ');
  SQL.Add('kets='+RedactorMatForm.KodEdUdEdit.Text+', ');
  SQL.Add('ets='+QuotedStr(RedactorMatForm.NaimUdEdit.Text)+', ');
  SQL.Add('unr1='+RedactorMatForm.UdNormaEdit.Text+', ');
  SQL.Add('di='+s+', ');
  SQL.Add('dw='+s+', ');
  SQL.Add('izw='+QuotedStr(RedactorMatForm.IzvechMemo.Text));
  SQL.Add(' where obm='+RedactorMatForm.OBMTextEdit.Text);
  try ExecSQL;
    except
 //
  end;
  end;