Сколько файлов есть в определённой папке

function
 GetFileCount(Dir: string
): integer;
var

  fs: TSearchRec;
begin

  Result := 0;
  if
 FindFirst(Dir + '*.htm', faAnyFile - faDirectory - faVolumeID, fs) = 0
    then

    repeat

      inc(Result);
    until

      FindNext(fs) <> 0;
  FindClose(fs);
end
;

Другое по теме:

• Удаление каталога со всем содержимым
• Копирование файлов вместе с каталогами
• Определение размера каталога