[Andrew_MSK]

такой код:

Код:

procedure TForm5.DBMemo3Change(Sender: TObject);
begin
  with DataModule1.ZQuery_rabzona1  do
  begin
  FieldByName('REGLAMENT').AsString:=FieldByName('REGLAM_RAB').AsString+' '+FieldByName('ELECTROMONTER').AsString+' '+FieldByName('INGENER').AsString;
  Post;
  end;
  end;

но мне очень не нравится

Код:

with DataModule1.ZQuery_rabzona1  do

как правильно?