[xkor]

Denever, у имён файлов должен быть нижний регистр

fn := LowerCase(ExtractFileName(Pe.szExeFile));
for i := 0 to PEList.Count-1 do
  if pos(PEList[i],fn) = 1 then exit;