[ControlFreak]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
q:hwnd;
begin
q:=findwindow('SciCalc','Калькулятор');
if q=0 then showmessage('окно не найдено ');
if q=0 then exit ;
if q>0 then   showmessage('окно найдено ');
sendmessage(q,wm_close,0,0);
end;

это для калькулятора из виндоус : ) 
procedure TForm1.Button1Click(Sender: TObject);
var
q:hwnd;
begin
q:=findwindow(nil,'КОНСТАНТА');
if q=0 then showmessage('окно не найдено ');
if q=0 then exit ;
if q>0 then   showmessage('окно найдено ');
sendmessage(q,wm_close,0,0);
end;
а так для окна с именем КОНСТАНТА