[PhoeniX]

1. Теги забыл))
2. выделенная строчка (ИМХО) должна иметь следующий вид:

Код:

if not ExtractFileExt(FileName)='.pas' then exit;

И не забудь, что у тебя может быть разный регистр расширений ('.pas','.PAS','.Pas','.pAs','.paS' и т.п. - РАЗНЫЕ строки)