function TForm1.FindProcesses (aKey : String; aList : TList = nil) : Integer;
var
 szProcessName : Array [0..1024] of Char;
 ProcessName   : String;
 hProcess      : Integer;
 aProcesses    : Array [0..1024] of DWORD;
 cProcesses    : DWORD;
 cbNeeded      : Cardinal;
 i             : UINT;
 hMod          : HMODULE;
begin
 
 Result:= 0;
 aKey:= lowercase(akey);
 
 if not (EnumProcesses(@aProcesses, sizeof(aProcesses), cbNeeded)) then
    exit;
 
 // Calculate how many process identifiers were returned.
 cProcesses := cbNeeded div sizeof(DWORD);
 
 // Print the name and process identifier for each process.
 for i:= 0 to cProcesses - 1 do
 begin
   szProcessName := 'unknown';
   hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ,
                           FALSE, aProcesses[i]);
 
   // Get the process name.
   if (hProcess <> 0) then
      if (EnumProcessModules(hProcess, @hMod, sizeof(hMod),cbNeeded)) then
         GetModuleBaseName (hProcess, hMod, szProcessName, sizeof(szProcessName));
 
   ProcessName:= lowercase (szProcessName);
 
   CloseHandle(hProcess);
   if pos (aKey, ProcessName) <> 0 then
   begin
     result:=aProcesses[i];
     if aList <> nil then
        aList.add(Pointer (aProcesses[i]))
     else
       exit;
   end;
 end;
 
 if aList <> nil then
    Result:= aList.count
 else
    Result:=0;
end;
 
function TForm1.KillProcess (aProcessId : Cardinal) : boolean;
var
  hProcess : integer;
begin
 
  hProcess:= OpenProcess(PROCESS_ALL_ACCESS, TRUE, aProcessId);
  Result:= false;
 
  if (hProcess <>0 ) then
  begin
    Result:= TerminateProcess(hProcess, 0);
    exit;
  end;
end;

  if not KillProcess(FindProcesses('notepad.exe')) then
    ShowMessage('Processo não finalizado.')
  else
    ShowMessage('Processo finalizado com sucesso!.');