Сделайте пожалуйста кто нибудь что бы все работало PascalABC.net

uses GraphABC, ABCObjects, ABCButtons;
const
  Size = 20; 
var
x,xx: ButtonABC;
s: picture;
Procedure q(
var
  A: RoundSquareABC;
  Dx, Dy,l, y, mb: integer;
  Move: boolean);
  procedure MouseMove(l, y, mb: integer);
begin
  if mb = 1 then
  begin
    if not Move then
    begin
      if A.PtInside(l, y) then Move := true;
      Dx := A.Position.X - l;
      Dy := A.Position.Y - y;
    end
    else
      A.Position := new Point(l + Dx, y + Dy);
  end;
  end;
  procedure MouseUp(l, y, mb: integer);
begin
  if mb = 1 then Move := false;
end;
begin
setwindowsize(400,400);
x.Visible:=False;
clearWindow;
 var Size2 := Size div 2;
  A := new RoundSquareABC(Window.Width div 2 - Size2, Window.Height div 2 - Size2, Size, 10, clYellow);
  
  Move := false;
  OnMouseMove:=MouseMove;
  OnMouseUp := MouseUp;
  end;
begin
setwindowsize(600,600);
s:=Picture.Create('E:\Новая папка\circuit-connected-dots-digital-art.jpg');
s.Draw(0,0);
x:=new ButtonABC(200,230,200,50,'Начать игру',clBlue);
xx:=new ButtonABC(200,300,200,50,'Настройки',clblue);
x.OnClick:=q;
end.

uses GraphABC, ABCObjects, ABCButtons;
 
const
  Size = 20;
 
var
  x, xx: ButtonABC;
  s: picture;
  A: RoundSquareABC;
  Dx, Dy, l, y, mb: integer;
  Move: boolean;
 
procedure MouseMove(l, y, mb: integer);
begin
  if mb = 1 then
  begin
    if not Move then
    begin
      if A.PtInside(l, y) then Move := true;
      Dx := A.Position.X - l;
      Dy := A.Position.Y - y;
    end
    else
      A.Position := new Point(l + Dx, y + Dy);
  end;
end;
 
procedure MouseUp(x, y, mb: integer);
begin
  if mb = 1 then Move := false;
end;
 
 
 
begin
  setwindowsize(600, 600);
  x := new ButtonABC(200, 230, 200, 50, 'Начать игру', clBlue);
  xx := new ButtonABC(200, 300, 200, 50, 'Настройки', clblue);
  
end.