[*Caro*]

Hola Paulao, creo que estas utilizando FindFirst para recorrer tus archivos, si es así solo te queda buscarlo tu mismo, puede ser utilizando un Pos para buscar los archivos que tengan la palabra CLASS.

Código Delphi [-]
   if FindFirst(Path + '*.*', faAnyFile, sr) = 0 Then
     repeat
       if Pos('CLASS', sr.Name)=0 then
        begin 
         //si no tiene Class
        end;

Saluditos