while not FDStoredProc1.eof do
Delphi-Quellcode:
begin
CmbEdtUserName.AddItem(FDStoredProc1.FieldByName('Vorname').AsString + ' ' + FDStoredProc1.FieldByName('Name').AsString, TObject( FDStoredProc1.FieldByName('ID').Value)); //funktioniert
FDStoredProc1.Next;
end;