Попробуйте следующий код:
procedure TForm1.AppDeactivate(Sender: TObject);begin close;end;procedure TForm1.FormCreate(Sender: TObject);begin Application.OnDeactivate := AppDeactivate;end;