Wie definiere ich ein Lookup-Feld für eine TQuery?

[MPirnstill]

@shmia

Ich habe das jetzt eingebaut, aber bei der Anweisung:
  Result.DataSet := ADataSet; bekomme ich immer die Fehlermeldung:

Zitat:

Operation bei geöffneter Datenmenge nicht ausführbar

Hat ja auch recht, "with AddLookupField .. do"
wird ja erst nach dem öffnen von "FQry" ausgeführt.

Mache ich da noch etwas falsch?

Ach ja, "CreateAllFields" habe ich erstmal auskomentiert, da die die Befehle "DestroyFields" und "CreateFields" unbekannt sind. Irgendwie scheint das mit dem Zugriff auf die Protected-Methoden von TDataSet noch nicht zu funktionieren. Vielleicht kennt TDataset diese Methoden unter Delphi 2.0 noch nicht oder sie heißen anders.
Aber hier dran kann der o.a. Fehler doch nicht liegen, oder?

Gruß