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