Программа крашится при нажатии Y

uses ABCObjects,GraphABC;
var 
  Font_Game:string;
  new_game,bot_game,exit_game:TextABC;
  s_g,b_g:boolean;
  
  Procedure KeyPress(key:char);
    begin
      if (key in ['Y','y','Н','н'])then
        s_g:=true;
      if (key in ['H','h','Р','р']) then
        b_g:=true;
      if (key in ['N','n','Т','т']) then
        CloseWindow;
    end;
    
  Procedure MainMenu(a,b,c:textabc);  // Процедура главного меню
   begin
      if (s_g=false) and (b_g=false) then a:= new TextABC((Window.Width-441) div 2 , (Window.Height-50) div 4 , 50 , 'Y - Новая игра .') else a.Destroy;//Надпись Y - Новая игра. 
      b:=new TextABC((Window.Width-800) div 2 , Window.Height div 2 - (Window.Height-50) div 8 , 50 , 'H - Игра против компьютера.');  //Надпись H - Игра против компьютера.
      c:=new TextABC((Window.Width-550) div 2 , Window.Height - (Window.Height-50) div 2 , 50 , 'N - Выход из игры.');  //Надпись N - Выход из игры.
    end;
    
  Procedure KeyPressed;
    begin
      while true do //Цикл проверки нажатия клавиши
        begin
          OnKeyPress:=KeyPress; //Нажатие клавиши
          if (s_g=true) or (b_g=true) then break; // Если H или Y нажата , то выход из цикла
        end;
    end;
begin
  window.Maximize;  //Установка максимального размера окна
  SetSmoothingOn;   //Включение сглаживания
  Font_Game:='Arial'; //Переменная с именем шрифта
  SetFontName(Font_Game); //Установка шрифта в программе
  MainMenu(new_game,bot_game,exit_game); //Вызов процедуры создания главного меню
  Keypressed; //Вызов процедуры удаляющий главное меню при нажатии клавиши 
  if (s_g=true) or (b_g=true) then MainMenu(new_game,bot_game,exit_game);
end.

uses ABCObjects,GraphABC;
var new_game:textabc;
  procedure MainMenu(a:textabc);
    begin
      a:=new TextABC(0,0,50,'1');
    end;
begin
  mainmenu(new_game);
  new_game.Destroy;
end.

Procedure MainMenu(var a,b,c:textabc);  // Процедура главного меню