case Application.MessageBox('Вы уверены, что хотите выйти из программы?', 'Выход', MB_YESNO) of
      ID_YES: ;
      else
         CanClose := False;
   end;


ShowMessage('Студентка группы 951007, Хомякова Мария.');