Убить процессы по их названию

[xaero93]

Здравствуйте, Уважаемые.
Значит такая задача:
1)Получить список процессов системы, записать его в ListBox1.
2)В ЛистБокс2 вывести данные из файла DontKill.txt
3)Сравнить их
4) Лишние процессы, которые будут в листбокс1-убить

Все это(кроме 2-го пункта) выполняется каждые 2 минуты

Первые три пункта я решил сам, осталась запара с последним. Подскажите пожалуйста, как убить процесс, зная его имя
П.с.

Процессы получаю функцией

function GetProcess:TStringList;

const

PROCESS_TERMINATE=$0001;
var
Co:BOOL;
FS:THandle;
FP:TProcessEntry32;
begin
result:=TStringList.Create;
FS:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
FP.dwSize:=Sizeof(FP);
Co:=Process32First(FS,FP);
while integer(Co) <> 0 do
begin
result.Add(FP.szExeFile);
Co:=Process32Next(FS,FP);
end;
CloseHandle(FS);

end;

Заранее спасибо

[Stilet]

Если я правильно помню. У тебя есть возможность написать так:

TerminateProcess(FP.th32ProcessID,0);

И это убьет процесс.
А найти его... Допустим в неком ЛистБокс есть список. Тогда

if ListBox.Items.IndexOf(FP.szExeFile)<>-1 then Убиваем