[droguerman]

y así?? luego de que has activado el query3

Código Delphi [-]
with tuOtroLookup do
begin
   listField := query3.Fields[0].fieldName;
   keyField := query3.Fields[0].fieldName;
end;