Ввод в новую связанную таблицу

SURVEY.Caption:=DM.ADOQuery1.FieldByName('FIO').AsString;//показал кого...
DM.ADOQuery3.SQL.Clear;
DM.ADOQuery3.SQL.Add('SELECT * FROM LCP, SURVEY  where (LCP.ID = SURVEY.LCP_ID) and nomer =  '+QuotedStr(DM.ADOQuery1.FieldByName('nomer').AsString));
DM.ADOQuery3.Active:=True;

if string.IsNullOrEmpty(DM.ADOQuery3.FieldByName('LCP_ID').AsString) then begin
   DM.ADOQuery3.Append;
   DM.ADOQuery3.FieldByName('LCP_ID').AsInteger:=DM.ADOQuery1.FieldByName('ID').AsInteger;
   //DM.ADOQuery3.FieldByName('Gestational_age_weeks').AsString:='Ввод';//по желанию
   DM.ADOQuery3.Post;
   end;
SURVEY.ShowModal;