2D графика и windows forms

{$reference 'System.Drawing.dll'}
 
uses
  System.Windows.Forms,
  System.Drawing;
  
var
  Form1: System.Windows.Forms.Form;
  Button1: System.Windows.Forms.Button;
 
procedure Button1_Click(Sender: Object; Args: System.EventArgs);
begin
  var gr := Form1.CreateGraphics;
  gr.DrawRectangle(new Pen(Color.Blue),new Rectangle(50,70,160,100));
end;
  
begin
  Button1 := new Button;
  Button1.Width := 120;
  Button1.Location := new System.Drawing.Point(0,0);
  Button1.Text := 'Прямоугольник'; 
  Button1.Click += Button1_Click;
  Form1 := new Form;
  Form1.Width:=320;
  Form1.Height:=240;
  Form1.Controls.Add(Button1); {Добавляем кнопку на форму}
  Application.Run(Form1);
end.

uses GraphABC;
 
var
  x := window.center.x;
  y := window.center.y;
  
procedure draw := Circle(x,y,10);
 
type
  tBlocks = class
    x0,y0,x1,y1 : Integer;
    reaction : Procedure;
 
    procedure draw := rectangle(x0,y0,x1,y1);
    constructor (x,y,w,h : Integer; r : Procedure);
    begin (x0,y0,x1,y1,reaction) := (x,y,x+w,y+h,r); draw; end;
    procedure select(x,y : Integer) := if x.inrange(x0,x1) and y.inrange(y0,y1) then reaction;
  end;
 
procedure up := y -= 10;
procedure down := y += 10;
procedure left := x -= 10;
procedure right := x += 10;
 
begin
  var blocks := new List<tBlocks>;
  blocks.Add(new tBlocks(40,15,20,20,up));
  blocks.Add(new tBlocks(15,40,20,20,left));
  blocks.Add(new tBlocks(40,40,20,20,down));
  blocks.Add(new tBlocks(65,40,20,20,right));
  draw;
  OnMouseDown := (x,y,mb) -> begin foreach var block in blocks do block.select(x,y); draw; end;
end.