[Страдалецъ]

Ну никак непредполагал, что моя невинная фраза:

2. Построчно анализируем. Ищем вхождение "=class" в строке предварительно убрав все ненужные пробелы.

может быть так истолкована:
Имелось ввиду следующее: читаем строку(именно текущую стоку, а не весь юнит), прогоняем ее через S := StringReplace(S,#32#32,#32,[rfReplaceAll])

А получить количество нужных файлов можно так:

Код:

Var
  FileInfo: TSearchRec;
  FileCount: Integer;
begin
 FindFirst('c:\1\*.JPG', faAnyFile, FileInfo);
 FileCount := 0;
 repeat
  Inc(FileCount);
 until FindNext(FileInfo) <> 0;
 ShowMessage(IntToStr(FileCount));
end;