Нарисовать рисунок

var
  Form1: TForm1;
  x,y:integer;
implementation
 
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
x:=Form1.ClientWidth div 2;
y:=x div 2;
Form1.Color:=clWhite;
Button1.Caption:='Нарисовать';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i,r:integer;
begin
with Form1.Canvas do
 begin
  pen.Width:=2;
  moveto(x-10,y);lineto(x-40,y+140);
  moveto(x+10,y);lineto(x+40,y+140);
  moveto(x-40,y+140);lineto(x+40,y+140);
  moveto(x-40,y+140);lineto(x+30,y+95);
  moveto(x+40,y+140);lineto(x-30,y+95);
  moveto(x+30,y+95);lineto(x-22,y+55);
  moveto(x-30,y+95);lineto(x+22,y+55);
  r:=60;
  for i:=1 to 6 do
   begin
    ellipse(x-r,y-r,x+r,y+r);
    r:=r-8;
   end;
 end;
end;