LVM_FINDITEM, Taskmanager stürzt ab

[Neotracer64]

Ich wollte einen bestimmten Prozess in der SysListview32 des Taskmanagers suchen und die Zahl des Items rauskriegen.
Ich wollte das wie folgend lösen, doch der Taskmanager stürzt gnadenlos ab

Delphi-Quellcode:

function GetTaskmgrProcess(process: String):integer;
var
  wnd: HWND;
  ItemCount: Cardinal;
  LVI: TLvfindinfo;
  ret: Integer;
begin
  wnd :=  FindWindow('#32770', 'Windows Task-Manager');
  wnd :=  FindWindowEx(wnd, 0, '#32770', nil);
  wnd :=  FindWindowEx(wnd, 0, 'SysListView32', 'Prozesse');

  if wnd <> 0 then
  begin
  //ItemCount := SendMessage(wnd, LVM_GETITEMCOUNT, 0, 0);
  //ShowMessage(IntToStr(ItemCount));
  LVI.psz := Pchar(process);
  LVI.flags := LVFI_STRING;
  ret := SendMessage(wnd, LVM_FINDITEM, -1, Integer(@lvi));
  //Showmessage(IntToStr(ret));
  result:=ret;


  end;
end;

Habt ihr ne Idee warum ?