Как связать в делфи 2 таблицы через ADOquery?

procedure TForm1.ADOQuery1AfterScroll(DataSet: TDataSet);
begin
   if ADOQuery1.RecordCount>0 then begin
      ADOQuery2.Filtered:=False;
      ADOQuery2.Filrer:='<ключевое_поле_подчиненной_таблицы>='+ADOQuery1.FieldByName('<ключевое_поле_главной_таблицы>').AsInteger;
      ADOQuery2.Filtered:=True;
   end;
end;

ADOQuery2.Filrer:='<ключевое_поле_подчиненной_таблицы>='+IntToStr(ADOQuery1.FieldByName('<ключевое_поле_главной_таблицы>').AsInteger);

ADOQuery2.Filrer:='<ключевое_поле_подчиненной_таблицы>='+ADOQuery1.FieldByName('<ключевое_поле_главной_таблицы>').AsString;

ADODatSet2.CommandText := 'Select * from table2 where КодГлавнойТаблицы = :k';

procedure TForm1.ADODatSet1AfterScroll(DataSet: TDataSet);
begin
 ADODatSet2.Close;
 ADODatSet2.Parameters[0].Value:=  DataSet['Код'];
 ADODatSet2.Open;
end;

   
//  ADODatSet2.Close;
 ADODatSet2.Parameters[0].Value := ADODatSet1.FieldValues ['kod'];
  //  ADODatSet2.Open;