Многогранники на форме.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
type Tpoint=record
            x,y:integer;
            end;
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var n,r,x0,y0,i,j:integer;
    p:array of Tpoint;  //динамический массив точек
    a,da:real;
begin
randomize;
n:=StrToInt(Edit1.Text); //количество вершин
r:=StrToInt(Edit2.Text); //радиус описанной окружности
da:=360/n; //величина центрального угла = шаг поворота
//рисуем на Canvas формы
x0:=Form1.Width div 2; //середина формы
y0:=Form1.Height div 2;
Setlength(p,n+1); //создаем массив - выделяем под него память(1-я точка 2 раза)
a:=0; //начальный угол от горизонтальной оси против часовой стрелки
for i:=0 to n-1 do //создаем массив координат вершин
  begin
    p[i].x:=x0+round(r*cos(a*pi/180));
    p[i].y:=y0-round(r*sin(a*pi/180));
    a:=a+da;
  end;
p[n].x:=p[0].x; //дублируем первую точку для замыкания полигона
p[n].y:=p[0].y;
//рисуем многоугольник
Canvas.MoveTo(p[0].x,p[0].y); //в первую точку
Canvas.Pen.Color:=random($fffff); //случайный цвет пера
Canvas.Pen.Width:=2; //линия потолще
for i:=0 to n do
Canvas.LineTo(p[i].x,p[i].y);//рисуем полигон
Canvas.Pen.Width:=1; //нормальная толшина линий
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
 
end.

procedure TForm1.Button1Click(Sender: TObject);
var n,r,x0,y0,i,j:integer;
    p:array of Tpoint;  
    a,da:real;
begin
randomize;
n:=StrToInt('5'); 
r:=StrToInt('50');
da:=360/n; 
 
x0:=Form1.Width div 2; 
y0:=Form1.Height div 2;
Setlength(p,n+1); 
a:=0; 
for i:=0 to n-1 do 
  begin
    p[i].x:=x0+round(r*cos(a*pi/180));
    p[i].y:=y0-round(r*sin(a*pi/180));
    a:=a+da;
  end;
p[n].x:=p[0].x; 
p[n].y:=p[0].y;
 
Image1.Canvas.MoveTo(p[0].x,p[0].y); 
Image1.Canvas.Pen.Color:=clRed;
Image1.Canvas.Pen.Width:=2; 
for i:=0 to n do
   Image1.Canvas.LineTo(p[i].x,p[i].y);
Image1.Canvas.Pen.Width:=1;
end;