Fórum TField em RUN TIME #236869

procedure TForm1.Button1Click(Sender: TObject);
var T: TStringField;
begin
   if qryCliente.Active then
      qryCliente.Close;
   T := TStringField.Create(Self);
   T.fieldName := ´Lookup1´;
   T.FieldKind := fkLookup;
   T.DisplayLabel := ´Lookup 1´;
   T.Visible := True;

   T.KeyFields:=´Campo1´;

   T.LookupDataSet:=Table1;
   T.LookupKeyFields:=´Codigo´;
   T.LookupResultField:=´Descricao´;

   T.Name := qryCliente.Name + T.FieldName;
   T.Index := qryCliente.FieldCount;
   T.DataSet := qryCliente;
   qryCliente.FieldDefs.UpDate;
   qryCliente.Open;
end;