Как подключить мышь в graph - Free Pascal

{$APPTYPE GUI}
uses wincrt, winmouse, wingraph;
var
   drive, mode: smallint;
   me: MouseEventType;
   k : char;
begin
   SetWindowSize(700, 700);
   drive := D8bit; mode := mCustom;
   InitGraph(drive, mode, '');
 
   repeat
      if PollMouseEvent(me) then
      begin
         GetMouseEvent(me);
         with me do
            case action of
               MouseActionDown :
               begin
                  case buttons of
                     MouseLeftButton :
                     begin
                        SetColor(15);
                        Circle(getmousex, getmousey, 100);
                     end;
                     MouseRightButton :
                     begin
                        SetColor(2);
                        Circle(getmouseX, getmousey, 100);
                     end;
                  end;
               end;
               MouseActionUp :
                  Circle(GetMouseX,GetMouseY,50);
            end;
      end;
 
      if keypressed then
         if readkey = #13 then break;
   until false;
end.