Izlistavanje sadrzaja foldera

Code:

procedure FeedToListBox(const path, FileExt : String);
var
  SearchRec : TSearchRec;
begin
  If FindFirst(Path + FileExt, $0000003F - $00000010, SearchRec) = 0 Then
    repeat
       // Ovde stavis sta da radi (ListBox1.Items.Add)
    until FindNext(SearchRec) <> 0;

  If FindFirst(Path + '*.*', $00000010, SearchRec) = 0 Then
    repeat
      If (SearchRec.Attr and $00000010 <> 0) and
         (SearchRec.Name <> '.') and
         (SearchRec.Name <> '..') and
         (Pos(WinDir, SearchRec.Name) = 0) Then
        FeedToListBox(Path + SearchRec.Name + '\', FileExt);
    until FindNext(SearchRec) <> 0;

  FindClose(SearchRec);