Filepfad aus Ordner auslesen geht nicht richtig bei Win98

[Matze]

Marco hat mir freundlicherweise einen anderen Code, als meinen Ursprünglichen gegeben.
Vielen Dank, Marco!

Code:

const
  FileExt = '*.*';
var
  SearchRec : TSearchRec;
  Dir: string;
begin
  ListBox1.Clear;

  Dir := IncludeTrailingBackslash(Edit1.Text);
  ListBox1.Items.BeginUpdate;
  if FindFirst(Dir + FileExt, faAnyFile, SearchRec) = 0 then
  try
    ListBox.Items.Add(SearchRec.Name);
    while FindNext(SearchRec) = 0 do
    ListBox1.Items.Add(SearchRec.Name);
  finally
    FindClose(SearchRec);
  end;
  ListBox1.Items.EndUpdate;
end;

Gruß Matze