Не могу понять ошибку: Не кликабельная меню на MouseUp - PascalABC.NET/GraphABC

if (mb = 1) and (x>80) and (x<452) and (y>203) and (y<140) then game:= true;

uses graphABC;
 
type
  point = record
    x, y: integer;
  end;
 
var
  BOMJ, Background, Platform_1, Button_1, Button_2, Button_3, Button_4, Logo: picture;
  Left, Right, x, y, i, h: integer;
  vx, vy: real;
  platforms: array [1..20] of point;//кол-во платформ
  game, active, settings, info: boolean;
 
procedure KeyDown(Key: integer);//Кнопки
begin
  if Key = vk_left then Left := 1;
  if Key = vk_right then Right := 1;
  if Key = vk_a then Left := 1;
  if Key = vk_d then Right := 1;
  if Key = vk_p then game := true;
  if Key = vk_s then settings := true;
  if Key = vk_i then info := true;
  if Key = vk_escape then game := false;
  if Key = vk_escape then settings := false;
  if Key = vk_escape then info := false;
  //if Key = vk_escape then active:= false;
  
end;
 
procedure KeyUp(Key: integer);
begin
  if Key = vk_left then Left := 0;
  if Key = vk_right then Right := 0;
  if Key = vk_a then Left := 0;
  if Key = vk_d then Right := 0;
end;
 
procedure MouseUp(x, y, mb: integer);
//За что отвечают кнопки
begin
  if (mb = 1) and (x>80) and (x<452) and (y>203) and (y<140) then game:= true;
  Rectangle (80, 203, 452, 140);
  if (mb = 1) and (x > 80) and (x < 452) and (y > 203) and (y < 140) then game := true;
end;
 
begin
  window.Caption := 'Project B.O.M.J';
  setWindowSize(532, 850);
  window.IsFixedSize := true;
  LockDrawing;
  OnKeyDown := KeyDown;
  OnKeyUp := KeyUp;
  //OnMouseUp := MouseUp;
  BOMJ := picture.Create('data\BOMJ.png'); //Пропись новых объектов для отрисовки
  Background := picture.Create('data\Background.png');
  Platform_1 := picture.Create('data\Platform_1.png');
  Button_1 := picture.Create('data\menu_button_play.png');
  Button_2 := picture.Create('data\menu_button_options.png');
  Button_3 := picture.Create('data\menu_button_info.png');
  Button_4 := picture.Create('data\menu_button_exit.png');  
  Logo := picture.Create('data\PB_2.png'); //Логотип (Не забудь на гиф сменить)
  active := true;
  game := false;
  while active do
  begin
    ClearWindow;
    x := 266;
    y := 400;
    h := 425;
    for i := 1 to 20 do //Кол-во платформ
    begin
      platforms[i].x := random(532);
      platforms[i].y := random(850);
    end;
      //Меню
    Background.Draw(0, 0);
    Logo.Draw(0, 10);
    Rectangle(80, 203, 452, 140); //- Область нажатия кнопки
    Button_1.Draw(80, 140);
    Button_2.Draw(80, 208);
    Button_3.Draw(80, 276);
    Button_4.Draw(80, 344);
    Redraw;
      //Меню
      
    while game do
    begin
      Background.Draw(0, 0);
      for i := 1 to 20 do Platform_1.Draw(platforms[i].x, platforms[i].y);
      BOMJ.Draw(x, y);    
      if Left = 1 then x := x - 2;
      if Right = 1 then x := x + 2;
      vy := vy + 0.2; //Скорость падения
      y := y + round(vy);
      for i := 1 to 20 do 
        if (x + 39 > platforms[i].x) and
                (x + 24 < platforms[i].x + 64) and
                (y + 64 > platforms[i].y) and
                (y + 31 < platforms[i].y + 16) and
        (vy > 0) then 
          vy := -9;
      if y < h then
      begin
        for i := 1 to 20 do 
        begin
          y := h;
          platforms[i].y := platforms[i].y - round(vy);
          if platforms[i].y > 850 then
          begin
            platforms[i].y := 0;
            platforms[i].x := random(532);
          end;
        end;
      end;
      Redraw;
    end;
  end;
  Halt;
end.