Delphi - Destroywindow

Saludos:

Estoy tratando de escribir un programa que me permita abortar la ejecuciòn de un progtrama desde delphi, utilizando la instruccion destroywindow, pero no la esta funcionando, si alguien me puede ayudar lo agradecerè, este es el còdigo que utilizo.

procedure TForm1.Button3Click(Sender: TObject);
VAR
HAND : HWND;
begin
HAND := FINDWINDOW(NIL,'Calc');
DESTROYWINDOW(HAND);
end;

de antemano gracias.

La funcion destroywindow no funciona con ventanas creadas por un thread diferente. Si lo que quieres es cerrar la ventana de una forma sencilla prueba a mandar el mensage WM_CLOSE
SendMessage(findwindow(nil,calc),WM_CLOSE,0,0);