Как найти все файлы в папке?

[blackstersl]

Всем привет. Вот вопрос: как найти все файлы в папке(знаю что через findfirst, findnext, findclose), но нужно чтобы был показан весь путь к файлу, а не только название:

 var
  SearchRec: TSearchRec;
  Ext: string;
begin
  ListBox1.Clear;
  if FindFirst(Path + '*.*', faAnyFile, SearchRec) = 0 then
    repeat
      Ext := LowerCase(ExtractFileExt(SearchRec.Name));
      if (Ext = '.txt')  then
        ListBox1.Items.Add(SearchRec.Name);
    until FindNext(SearchRec) <> 0;
  FindClose(SearchRec);

спасибо.

[Kotofff]

Может добавлением Path к названию найденных файлов ?

ListBox1.Items.Add(Path + '\' +SearchRec.Name);

[Stilet]

ListBox1.Items.Add(Path +SearchRec.Name);

[blackstersl]

Спасибо -).