Hallo,
du kannst dir mal die Methode TStrings.AddObject anschauen.
Du kannst beispielsweise in jedem Schleifendurchlauf folgendes machen
Delphi-Quellcode:
while not eof do begin
LKey := FieldByNAme('ID').AsInteger;
List.AddObject((FieldByName('Ausbildungsbetrieb').AsString) + ' ' + (FieldByName('Ort').AsString), Pointer(LKey));
Next;
end;
Gruß
Ken