FindFile function funktzt net

[Master_BB]

Hya,
nun hab ich den selben Psydo fehler bei meiner FindFile Funktion wie bei der FindPath bzw FindDir funktion.
Er such und er findet. Jedoch wird der fund nur in meine listbox ausgegeben - Result wird nicht gefüllt.
Könnte es einer mal testen ob es bei ihm läuft ich schnall nicht warum nicht geht.

Delphi-Quellcode:

function TForm1.FindFile(ToBeFound, ASearchPath : string) : string;
var
  ASearchRec : TSearchRec;
begin
  Result := '';

  if ASearchPath[Length(ASearchPath)] <> '\' then
    ASearchPath := ASearchPath + '\';

  if FindFirst(ASearchPath + '*.*', faAnyFile, ASearchRec) = 0 then
  begin
    repeat
      if CompareText(ToBeFound, ASearchRec.Name) = 0 then
      begin
        ListBox1.Items.Add(ASearchPath + ASearchRec.Name);
        Result := ASearchPath;
        Break;
      end;
    until FindNext(ASearchRec) <> 0;
  end;
  FindClose(ASearchRec);

 if FindFirst(ASearchPath + '*.*', faDirectory, ASearchRec) = 0 then
 begin
   repeat
     if ((ASearchRec.Attr and faDirectory)  = faDirectory) and
        (ASearchRec.Name                   <> '..')        and
        (ASearchRec.Name                   <> '.')         then
     begin
       FindFile(ToBeFound, ASearchPath + ASearchRec.Name);
     end;
   until FindNext(ASearchRec) <> 0;
 end;
 FindClose(ASearchRec);   
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(FindFile(Edit1.Text,'E:\'));
end;

in der Listbox wird der Pfad mit der gefundenen file sehr schön angezeigt aber nicht in der messagebox
da Result = '' ist anstatt das da ASearchPath drin ist

Greetz
Master_BB