如何在程序中动态建立lookupField?

with DefaultFieldClasses[TFieldType(ftString)].Create(Qry) do
    begin
      FieldKind := fkLookup;
      Lookup:=true;
      FieldName := 'test';
      KeyFields := 'ID';
      LookupDataSet :=Qry;
      LookupKeyFields := 'ID';
      LookupResultField := 'NAME';
      Name := 'test';
    end;
    Qry.FieldDefs.Add('test',ftString,20,False);