type
TFileName = type string;
TSearchRec = record
  Time:  Integer;
  Size: Integer;
  Attr:  Integer;
  Name:  TFileName;
  ExcludeAttr:  Integer;
  FindHandle: THandle;
  FindOata:  TWin32FindData;
end;
function FindFirst(const Path: string; Attr: Integer; var Rec: TSearcnRec): Integer;

Функция FindFirst начинает поиск файлов в каталоге. Выполняется поиск файлов, соответствующих спецификатору Path, который может содержать групповые символы (* и ?). Если Attr равен нулю, выполняется поиск всех обыкновенных файлов. Также можно задать битовую маску из атрибутов faHicoen, faSysFile и faDircctory для поиска специальных файлов и каталогов. Для поиска всех каталогов и файлов используйте faAnyFile, Функция FindFirst возвращает ноль в случае успеха и код ошибки в случае неудачи. Если возвращается ноль, необходимо позднее вызвать FindClose для освобождения ресурсов, выделенных при вызове FindFirst.
Если FindFirst возвращает ноль, Flee заполняется информацией о первом найденном файле. Ниже описываются поля, предназначенные для программиста. Остальные поля предназначены для подпрограмм FindFirst, FindNext и FindClose.
  Attr
Атрибуты файла.
  FindData
Более подробная информация содержится в записи Windows, задокументированной как WIN32_FIMD_DATA в Platform SDK. В частности, можно получить короткое (8.3) имя файла, размер файла более 2 Гбайт или определить время и дату последнего доступа и создания файла.
  Name
Длинное имя файла. Короткое имя файла рассмотрено в поле записи FindData.
  Size
Размер файла в байтах. Если размер файла превышает 2 Гбайт, Size содержит младшие 32 бита истинного размера файла; полный размер файла рассмотрен в поле записи FindOata.
  Time
Дата и время изменения файла в формате даты файла. Преобразование этого значения в TDateTime разобрано в описании функции FileDateToDateTime.