LookUp в Query

var
  f: TIntegerField;
begin
  qp.close;
 
  f := TIntegerField.Create(QP); //Ñîçäàåì ïîëå òåïà INTEGER
  f.FieldKind := fkLookup; //Óêàçûâàåì íà òî ÷òî îíî ó íàñ LookUp
  f.KeyFields := 'age1'; //Ïîëå êëþ÷, ïî êîòîðîìó áóäåò èñêàòüñÿ ñîîòâåòñòâèå
  f.LookupDataSet := QC; //Íàáîð äàííûõ (DataSet) â êîòîðîì áóäó îòáèðàòüñÿ äàííûå
  f.LookupKeyFields := 'idc'; //Óíèêàëüíûé êëþ÷ â íàáîðå äàííûõ ADOQueryDictionary, ïî êîòîðîìó áóäåì èñêàòü
  f.LookupResultField := 'age'; //Ïîëå èç íàáîðà äàííûõ ADOQueryDictionary, êîòîðîå áóäåò îòîáðàæàòüñÿ â ðåçóëüòàòå
  f.Name := 'ag2'; //çàäàåì èìÿ íàøåìó ïîëþ
   showmessage(f.Name);
  QP.Fields.Add(f); //âêëþ÷àåì åãî â ñîòàâ íàøåãî íàáîðà äàííûõ
 
  qp.Open;

DBGrid2.Columns[4].PickList.clear;
     with Q1 do
    begin
      SQL.text := 'select * from client';
      Open;
      First;
      while not Eof do
      begin
        DBGrid2.Columns[4].PickList.add(FieldByName('age').Value);
        Next;
      end;
    end;

var
  f: TIntegerField;
begin
  qp.close;
 
  f := TIntegerField.Create(QP); //ÑîçäГ*ГҐГ¬ ïîëå ГІГҐГЇГ* INTEGER
  f.FieldKind := fkLookup; //ÓêГ*çûâГ*ГҐГ¬ Г*Г* ГІГ® Г·ГІГ® Г®Г*Г® Гі Г*Г*Г± LookUp
  f.KeyFields := 'age1'; //Ïîëå êëþ÷, ГЇГ® êîòîðîìó áóäåò ГЁГ±ГЄГ*ГІГјГ±Гї ñîîòâåòñòâèå
  f.LookupDataSet := QC; //ГЌГ*áîð Г¤Г*Г*Г*ûõ (DataSet) Гў êîòîðîì áóäó îòáèðГ*ГІГјГ±Гї Г¤Г*Г*Г*ûå
  f.LookupKeyFields := 'idc'; //Г“Г*ГЁГЄГ*ëüГ*ûé êëþ÷ Гў Г*Г*áîðå Г¤Г*Г*Г*ûõ ADOQueryDictionary, ГЇГ® êîòîðîìó áóäåì ГЁГ±ГЄГ*ГІГј
  f.LookupResultField := 'age'; //Ïîëå ГЁГ§ Г*Г*áîðГ* Г¤Г*Г*Г*ûõ ADOQueryDictionary, êîòîðîå áóäåò îòîáðГ*Г¦Г*ГІГјГ±Гї Гў ðåçóëüòГ*ГІГҐ
  f.Name := 'ag2'; //Г§Г*Г¤Г*ГҐГ¬ èìÿ Г*Г*øåìó ïîëþ
   showmessage(f.Name);
  QP.Fields.Add(f); //âêëþ÷Г*ГҐГ¬ ГҐГЈГ® Гў ñîòГ*Гў Г*Г*ГёГҐГЈГ® Г*Г*áîðГ* Г¤Г*Г*Г*ûõ
 
  qp.Open;