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