Select-Abfrage mit TQuery

[RWarnecke]

Hallo,

ich kann ja über den folgenden Code, eine Select-Abfrage ausführen und das Ergebnis in normale TEdit-Felder einfügen :

Delphi-Quellcode:

Query.SQL.Text := "Select ort from orte where plz='<Wert>'";
Query.SQL.Open;
Query.Active := true;
while not EOF do
begin
  Listbox1.Items.Add(Fields[0].AsString);
end;
Query.Active := false;

Mit diesem Codeschnipsel kann ich ja die Listbox1 mit dem Ergebnis füllen. Da ich gerade an einer DLL schreibe, möchte ich die While-Schleife in meinen Eigentlichen Sourcecode packen und den Rest in die DLL. Was muss ich in der Funktion als Rückgabewert mitgeben, dass ich alle Datensätze übergeben bekomme und auch abfragen kann ?

Die Funktion zum Abrufen Sie wie folgt aus :

Delphi-Quellcode:

function Query(SQLCommand : string):TFields;
begin
  Query.SQL.Text := "Select ort from orte where plz='<Wert>'";
  Query.SQL.Open;
  Query.Active := true;
  result := Query.Fields;
end;

Wenn ich nur ein Ergebnis herausbekomme, funktioniert es wunderbar. Wenn ich aber mehrere Ergbenisse habe, dann komme ich zwar an den ersten Wert dran aber nicht an die restelichen. Wie komme ich an die restlichen Werte, wenn das Ergebnis > 1 ist ?