یک کد برای بستن پنجره:

به جای .Pixel. تیتر پنجره را بگذارید:

 
procedure TForm1.Button1Click(Sender: T);
var
  MyHandle: THandle;
  a:tagMSG;
begin
  MyHandle:=FindWindow(nil, ".Pixel.");
 SendMessage(MyHandle, WM_CLOSE, 0, 0);
end;

Speed test