Не прячется курсор при выполнении procedure Trap();

program CatchTheDot;
 
uses GraphABC, ABCButtons, Sounds, System.Net;
 
var
way, cheat, none: string;
dot_t, trap_t, trap_t_closed: Picture;
trap_s_close, laugh: Sound;
catched, LogIsActivated, trap_is_closed: boolean;
settings_ini: Text;
trapposx, trapposy, dotposx, dotposy, MouseX, MouseY: integer;
fps: shortint;
 
procedure MouseNow(x, y, btn: integer);
begin
  MouseX := x;
  MouseY := y;
end;
 
procedure Trap();
begin
  catched := true;
  system.Windows.Forms.Cursor.Hide;
end;
 
begin
  SetWindowCaption('CatchTheDot');
  MaximizeWindow;
  SetWindowPos(0, 0);
  SetWindowIsFixedSize(true);
  way := GetDir + '\base\';
  Writeln(way);
  Assign(settings_ini, way + 'settings.ini');
  Writeln('Assigned: ' + way + 'settings.ini');
  Reset(settings_ini);
  Writeln('settings.ini is opened');
  Read(settings_ini, none);
  Read(settings_ini, none);
  if none = 'true' then
    LogIsActivated := true else
      LogIsActivated := false;
  dot_t := Picture.Create(way + 'dot.bmp');
  Writeln('Assigned: ' + way + 'dot.bmp');
  trap_t := Picture.Create(way + 'trap.bmp');
  Writeln('Assigned: ' + way + 'trap.bmp');
  trap_s_close := Sound.Create(way + 'trap_close.ogg');
  Writeln('Assigned: ' + way + 'trap_close.ogg');
  trap_t_closed := Picture.Create(way + 'trap_closed.bmp');
  Writeln('Assigned: ' + way + 'trap_closed.bmp');
  laugh := Sound.Create(way + 'laugh.ogg');
  Writeln('Assigned: ' + way + 'laugh.ogg');
  catched := false;
  Writeln('catched = false');
  dotposx := 0;
  Writeln('dotposx = 0');
  dotposy := 0;
  Writeln('dotposy = 0');
  fps := 0;
  Writeln('fps = 0');
  trapposx := 500;
  Writeln('trapposx = 500');
  trapposy := 500;
  Writeln('trapposy = 500');
  SetFontSize(50);
  SetBrushColor(clWhite);
  SetFontColor(clGreen);
  TextOut(440, 395, 'Нажми Enter для начала игры!');
  Readln(cheat);
  while not catched = true do
  begin
    if fps = 20 then
    begin
      ClearWindow();
      fps := 0;
    end else
      fps := fps + 1;
    dot_t.Draw(dotposx, dotposy);
    if trap_is_closed = false then
      trap_t.Draw(trapposx, trapposy, 50, 50) else
        trap_t_closed.Draw(trapposx, trapposy, 50, 50);
    OnMouseMove := MouseNow;
    case MouseX of
      500 + 0: Trap;
      500 + 1: Trap;
      500 + 2: Trap;
      500 + 3: Trap;
      500 + 4: Trap;
      500 + 5: Trap;
      500 + 6: Trap;
      500 + 7: Trap;
      500 + 8: Trap;
      500 + 9: Trap;
      500 + 10: Trap;
      500 + 11: Trap;
      500 + 12: Trap;
      500 + 13: Trap;
      500 + 14: Trap;
      500 + 15: Trap;
      500 + 16: Trap;
      500 + 17: Trap;
      500 + 18: Trap;
      500 + 19: Trap;
      500 + 20: Trap;
      500 + 21: Trap;
      500 + 22: Trap;
      500 + 23: Trap;
      500 + 24: Trap;
      500 + 25: Trap;
      500 + 26: Trap;
      500 + 27: Trap;
      500 + 28: Trap;
      500 + 29: Trap;
      500 + 30: Trap;
      500 + 31: Trap;
      500 + 32: Trap;
      500 + 33: Trap;
      500 + 34: Trap;
      500 + 35: Trap;
      500 + 36: Trap;
      500 + 37: Trap;
      500 + 38: Trap;
      500 + 39: Trap;
      500 + 40: Trap;
      500 + 41: Trap;
      500 + 42: Trap;
      500 + 43: Trap;
      500 + 44: Trap;
      500 + 45: Trap;
      500 + 46: Trap;
      500 + 47: Trap;
      500 + 48: Trap;
      500 + 49: Trap;
      500 + 50: Trap;
    end;
  end;
end.