Пишу меню для игры , при нажатии на белое поле выскакивает ошибка и процесс завершается

//меню для игры 
uses
  GraphABC, ABCobjects;
 
var
  but1, but2, but3, but4: RectangleABC;
  a: array[1..999] of string;
  f: text;
  i: integer;
 
procedure MouseDown(x, y, mb: integer);
begin
  if mb = 1 then
  begin
  if mb = 1 then
  begin
  end;
    if but3.PtInside(x, y) = true then 
    begin
      window.Close;
    end
    else
    if but1.PtInside(x, y) = true then
    begin
      exec('XO.exe');
      window.Close;
    end
      else
    if but2.PtInside(x, y) = true then
    begin
      window.Clear;
      SetBrushColor(clwhite);
            assign(f, 'History.txt');
      reset(f);
      while not eof(f) do
      begin
        readln(f, a[i]);
        writeln(a[i]);
        i := i + 1;
      end;
      close(f);
      but4 := new RectangleABC(200, 400, 380, 30, clYellow);
      but4.Text := 'Назад';
      end
        else
      if but4.PtInside(x, y) = true then
      begin
       exec('Menu.exe');
       window.Close;
      end;
  end
end;
 
procedure Menu();
begin
  but1 := new RectangleABC(100, 100, 380, 30, clYellow);
  but1.Text := 'Играть';
  but2 := new RectangleABC(100, 150, 380, 30, clYellow);
  but2.Text := 'История игр';
  but3 := new RectangleABC(100, 200, 380, 30, clYellow);
  but3.Text := 'Выйти';
end;
 
begin
  i := 1;
  window.setSize(640, 480);
  menu();
  window.Caption := ('Menu');
  onMouseDown := MouseDown;
end.