Handle-savonnette à la c..

Bonjour,

Je fais un bench et j'ai besoin du gestionnaire des tâches de Windows pour contrôler certains trucs.
Je me suis dit, confiant (et décontracté au début) : «Tiens! Je vais intégrer le gestionnaire à mon projet. Ce sera plus bô».
J'avais donc besoin du Handle de fenêtre du gestionnaire...
J'ai donc fait :

var ShellHdl : THandle;

procedure TForm1.FormCreate(Sender: TObject);
  begin
  ShellExecute(0,'OPEN','TaskMgr.exe', Nil, Nil, SW_SHOW);//On lance le gestionnaire.
  repeat
    ShellHdl := FindWindow('#32770',nil); //Récupération du Handle de sa fenêtre par le ClassName.
    Application.ProcessMessages;
  until ShellHdl<>0;
  ShowMessage(IntToStr(ShellHdl));
end;

 ...  

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  begin
  PostMessage(ShellHdl, WM_CLOSE, 0, 0);
end;

C'est là que ça commence à se gâter et à me pourrir la vie : ça ne ferme pas le gestionnaire quand on quitte!
Alors, j'ai essayé:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  begin
  if ShellHdl <> 0 then ShellHdl := FindWindow('#32770',nil);
  PostMessage(ShellHdl, WM_CLOSE, 0, 0);
  ShowMessage(IntToStr(ShellHdl));
end;

Là, ça ferme le gestionnaire.    Cool!
Mais que me rends-je compte, ahuri? 
Le Handle de la fenêtre du gestionnaire a changé depuis sa création dans FormCreate?  Pas cool!
En plus, histoire de me faire ch*** un max, parfois ça change pas.
Alors je viens vers vous pour vous demander si on peut vraiment faire confiance à ces saloperies de Handles ou si c'est moi qui perds la boule?

Merci de tendre la main à un mec qui va tourner chèvre.