Подскажите как через кнопку сделать фигуру

var
  Form1: TForm1;
  x1,y1,x2,y2,x3,y3:double;
implementation
 
{$R *.dfm}
procedure vvod(e:TEdit;var x:double);
begin
if not TryStrToFloat(e.Text,x)or(abs(x)>10) then
 begin
  ShowMessage('Введите в '+e.Name+' число от -10 до 10');
  e.Clear;
  e.SetFocus;
  exit;
 end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
vvod(Edit1,x1);
vvod(Edit2,y1);
vvod(Edit3,x2);
vvod(Edit4,y2);
vvod(Edit5,x3);
vvod(Edit6,y3);
PaintBox1.OnPaint(Sender);
end;
 
procedure TForm1.PaintBox1Paint(Sender: TObject);
var c,i:integer;
    m:double;
begin
PaintBox1.Width:=PaintBox1.Height;
c:=PaintBox1.Width div 2;
m:=(c-20)/10;
with PaintBox1.Canvas do
 begin
  pen.Width:=2;
  pen.Color:=clBlack;
  pen.Style:=psSolid;
  moveto(c-round(10*m),c);
  lineto(c+round(10*m),c);
  moveto(c,c-round(10*m));
  lineto(c,c+round(10*m));
  pen.Width:=1;
  pen.Style:=psDot;
  for i:=1 to 10 do
   begin
    moveto(c+round(i*m),c-round(10*m));
    lineto(c+round(i*m),c+round(10*m));
    moveto(c-round(10*m),c-round(i*m));
    lineto(c+round(10*m),c-round(i*m));
    moveto(c-round(i*m),c-round(10*m));
    lineto(c-round(i*m),c+round(10*m));
    moveto(c-round(10*m),c+round(i*m));
    lineto(c+round(10*m),c+round(i*m));
    textout(c+round(i*m)-10,c+5,inttostr(i));
    textout(c-round(i*m)+5,c+5,inttostr(-i));
    textout(c-15,c-round(i*m)+5,inttostr(i));
    textout(c-15,c+round(i*m),inttostr(-i));
   end;
  pen.Color:=clRed;
  pen.Style:=psSolid;
  pen.Width:=2;
  moveto(c+round(x1*m),c-round(y1*m));
  lineto(c+round(x2*m),c-round(y2*m));
  lineto(c+round(x3*m),c-round(y3*m));
  lineto(c+round(x1*m),c-round(y1*m));
 end;
 
end;