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

Понятно, замените в своем коде строчки:

Код:

 sl.Add(string(ModName)); 

Код:

 if List.Find('chrome',Index) then ShowMessage('Найдено в строках '+IntToStr(Index));

на

Код:

 sl.Add(ExtractFileName(string(ModName)));

Код:

 if List.Find('chrome.exe',Index) then ShowMessage('Найдено в строках '+IntToStr(Index));