Получение Списока файлов.

procedure FindFiles(const APath : string);
var
  FSearchRec,
  DSearchRec  : TSearchRec;
  FindResult  : Integer;

  function IsDirNotation(ADir : string): boolean;
  begin
    Result := (ADir = '.') or (ADir = '..');
  end;

begin
  FindResult := FindFirst(APath+'*.<your file ext>', faAnyFile+faHidden+faReadOnly+faSysFile, FSearchRec);
  try
    while FindResult = 0 do
    begin
     <действия с найденым файлом -АSearchRec.Name>
      FindResult := FindNext(FSearchRec);
    end;
    FindResult := FindFirst(APath+'*.*', faDirectory, DSearchRec);
    while FindResult = 0 do
    begin
      if ( (DSearchRec.Attr = 16) and not (IsDirNotation(DSearchRec.Name)) ) then
        FindFiles(APath+DSearchRec.Name+'\');
      FindResult := FindNext(DSearchRec);
    end;
  finally
    SysUtils.FindClose(FSearchRec);
    SysUtils.FindClose(DSearchRec);
  end;
end;