procedure TMyWin.MenuFileExit; begin if CanClose then Done; end;