1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

function KillTask(ExeFileName: string): integer;
const 
  PROCESS_TERMINATE=$0001; 
var 
  ContinueLoop: BOOL; 
  FSnapshotHandle: THandle; 
  FProcessEntry32: TProcessEntry32;  
begin 
  result := 0;  

  FSnapshotHandle := CreateToolhelp32Snapshot     // Das is mir unverständlich
                     (TH32CS_SNAPPROCESS, 0);         
  FProcessEntry32.dwSize := Sizeof(FProcessEntry32); 
  ContinueLoop := Process32First(FSnapshotHandle,    // Das is mir unverständlich
                                 FProcessEntry32); 

  while integer(ContinueLoop) <> 0 do  // Ebenfalls is mir die Schleife unverständlich
  begin                                                           
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =   
         UpperCase(ExeFileName)) 
     or (UpperCase(FProcessEntry32.szExeFile) = 
         UpperCase(ExeFileName))) then 
      Result := Integer(TerminateProcess(OpenProcess( 
                        PROCESS_TERMINATE, BOOL(0), 
                        FProcessEntry32.th32ProcessID), 0));  
    ContinueLoop := Process32Next(FSnapshotHandle, 
                                  FProcessEntry32); 
  end;  

  CloseHandle(FSnapshotHandle);  
end;					

1:

while Integer(CuntinueLoop) <> 0 do					

1:

while ContimueLoop do