[Andrew_MSK]

Код:

procedure TDataModule1.ZQuery_rabzona1BeforePost(DataSet: TDataSet);
begin
  with DataModule1.ZQuery_rabzona1 do
  begin
  FieldByName('REGLAMENT').AsString:= FieldByName('REGLAM_RAB').AsString+' '
  +FieldByName('ELECTROMONTER').AsString+' '+FieldByName('INGENER').AsString+' '
  +FieldByName('REGLAMENT').AsString;
  end;

end;

так тоже работает и дополняет данные к существующему значению!!!!!
УРРРРААААААААА!!!!!