Problem beim Auslesen eines Ordners unter Win98

[Helmi]

Hallo,

ich will unter Win98 alle Dateien eines Ordners auslesen und diese in einen String schreiben

ich hab mir dafür eine Function geschrieben

Code:

function GiveAllDirFiles(Directory: String): String;
var
  SearchRec: TSearchRec;

begin
  Result    := '';

  Directory := IncludeTrailingPathDelimiter(Directory);

  if (FindFirst(Directory + '*.*', faAnyFile, SearchRec) = 0) then
    repeat
      If FileExists(SearchRec.Name) then
        Result := Result + SearchRec.Name + '|';
    until FindNext(SearchRec) <> 0;

  FindClose(SearchRec);
end;

Dieses Function funktioniert unter WinXP ohne Probleme - nur nicht unter Win98

Weiss jemand vielleicht warum und was ich anders machen könnte?

mfg
Helmi