код с рисованием фигур по заданным точкам пользователем

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    SpinEdit1: TSpinEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var a:array of Tpoint;//массив координат точек
    n,i:integer;
begin
randomize;
n:=SpinEdit1.Value;//количество точек
Setlength(a,n);
for i:=0 to n-1 do
 begin
  a[i].X:=random(Form1.Width-100)+50;//случайные координаты, можно и по другому задать
  a[i].Y:=random(Form1.ClientHeight-100)+50;
  with canvas do
   begin
    pen.Color:=RGB(random(255),random(255),random(255));
    Ellipse(a[i].X-10,a[i].Y-10,a[i].X+10,a[i].Y+10);
   end;
 end;
end;
 
end.

procedure tform1.button1click(sender: tobject);
var
  massiv : array of tpoint;
begin
setlength(massiv,4);
  massiv[0].x := 0;
  massiv[0].y := 0;
  massiv[1].x := 50;
  massiv[1].y := 100;
  massiv[2].x := 100;
  massiv[2].y := 50;
  massiv[3].x := 0;
  massiv[3].y := 0;
canvas.polyline(massiv);
end;