procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);beginapplication.Messagebox('Sorry you are unable to terminate this application','Close Request Received');CanClose:=False;end;