Funktion mit Query; wie rückgabeWert?

[p80286]

Delphi-Quellcode:

function ReadKatalognummer(Vorname : String) : String;
begin
  DataModule1.ADOQuery_ReadKatalognr.SQL.Text :=
    'SELECT Katalognr '+
    'FROM Schueler '+
    'WHERE Name =:Vorname  ';
  DataModule1.ADOQuery_ReadKatalognr.Params.Parambyname('vorname').asstring:=vorname;
  DataModule1.ADOQuery_ReadKatalognr.Open;
  if not(DataModule1.ADOQuery_ReadKatalognr.Eof) then
    result:=DataModule1.ADOQuery_ReadKatalognr.FieldbyName('Katalognr').asstring;
  else
    result:=' -- no Data Found --';
  DataModule1.ADOQuery_ReadKatalognr.Close;
end;

so ungefähr sollte es ausssehen aber "Vorname" ????????
Gruß
K-H