procedure TForm1.Button1Click(Sender: TObject);begin//  SendMessage(Application.Handle, WM_CLOSE, 0, 0);//  SendMessage(Handle, WM_CLOSE, 0, 0);//  Halt(0);//  PostQuitMessage(0);  Application.Terminate;end;procedure TForm1.FormDestroy(Sender: TObject);begin  Beep;end;