Как переносить часть записи из одной таблийы в подстановочное поле другой?

[Andr_zdes]

Подскажите пожалуйста, как мне можно (Delphi) перенести одно поле записи из таблийы1 в подстановочное поле таблийы2: метод

DataModule2.ADOTable2.Insert;
DataModule2.ADOTable2FlightNumber.AsInteger := DataModule2.ADOTable1DSDesigner9.AsInteger;

не даёт результата.

[Stilet]

не даёт результата.

Как узнал? Нормальный код... Работоспособный.
После него только Post вызывать надо и все это сохранится в файл БД, а так вроде ниче тут криминального нет.

[Andr_zdes]

Ну я вот так делаю:

procedure TForm1.SpeedButton1Click(Sender: TObject); //это кнопка "продать билет"

begin
DataModule2.ADOTable2.Insert;
DataModule2.ADOTable2FlightNumber.A sInteger := DataModule2.ADOTable1DSDesigner9.As Integer;
Form2.ShowModal;
end;

procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
if DataModule2.ADOTable2.Modified then DataModule2.ADOTable2.Post;
Close;
DataModule2.ADOTable2.Refresh;
... ... ...
end;

На форм2 у меня дб-эдиты для заполнения ADOTable2 дальше.