ADOTableAfterPost(DataSet: TDataSet)

UPDATE model INNER JOIN experiment ON model.id = experiment.id SET experiment.modelid = [model]![comment];

procedure TDataModule2.ADOTable1AfterPost(DataSet: TDataSet);
begin
        Form1.ADOQuery1.Close;
        Form1.ADOQuery1.SQL.Clear;
        Form1.ADOQuery1.SQL.Add('UPDATE model INNER JOIN experiment ON model.id = experiment.id SET experiment.modelid = [model]![comment]');
        Form1.ADOQuery1.ExecSQL;
end;