Windows Prozess killen

[Matze]

Muss es nicht so heißen:

Delphi-Quellcode:

A := Listbox1.Count; 
  for I:=0 to A do 
    if Listbox1.Items.Strings[I] = 'test.exe' then 
      KillProcess(GetProcessID(Listbox1.Items.Strings[I])) 
    else 
end;