procedure TForm1.Button1Click(Sender: TObject);
begin
with Image1.Canvas do
begin
Brush.Color:=clSkyBlue;
rectangle(10,10,1000,300);
Brush.Color:=clLime;
rectangle(10,300,1500,1000);
Brush.Color:=clYellow;
Ellipse(30,30,100,100);
Brush.Color:=clAqua;
Ellipse(550,30,650,80);
Ellipse(630,30,730,80);
Ellipse(580,70,670,120);
Brush.Color:=clGreen;
Ellipse(250,100,340,270);
Ellipse(300,80,390,270);
Ellipse(350,100,440,270);
Chord(650,265,800,405,800,330,650,330);
Chord(100,285,250,425,250,350,100,350);
Brush.Color:=clMoneyGreen;
Chord(20,285,150,425,170,350,20,350);
Brush.Color:=clMaroon;
Rectangle(290,270,300,350);
Rectangle(340,270,350,350);
Rectangle(390,270,400,350);
Brush.Color:=ClGreen;
Pen.Color:=ClGreen;
Chord(100,285,250,425,250,350,100,350);
Chord(330,340,360,360,330,345,360,357);
Chord(330,340,360,360,330,357,360,345);
Brush.Color:=ClWhite;
Rectangle(280,420,290,400);
Brush.Color:=ClMaroon;
Chord(270,390,300,420,300,405,270,405);
Brush.Color:=ClGreen;
Pen.Color:=ClGreen;
Chord(270,410,300,430,270,415,300,427);
Chord(270,410,300,430,270,427,3000,415);
Brush.Color:=ClWhite;
Rectangle(90,420,100,400);
Brush.Color:=ClMaroon;
Chord(80,390,110,420,110,405,80,405);
Brush.Color:=ClGreen;
Pen.Color:=ClGreen;
Chord(80,410,110,430,80,415,110,427);
Chord(80,410,110,430,80,427,110,415);
Brush.Color:=ClWhite;
Rectangle(680,420,690,400);
Brush.Color:=clMaroon;
Chord(670,390,700,420,700,405,670,405);
Brush.Color:=clMedGray;
rectangle(10,650,1500,655);
Brush.Color:=clMaroon;
rectangle(10,655,40,660);
rectangle(70,655,100,660);
rectangle(130,655,170,660);
rectangle(200,655,230,660);
rectangle(270,655,300,660);
rectangle(330,655,370,660);
rectangle(400,655,430,660);
rectangle(470,655,500,660);
rectangle(530,655,570,660);
rectangle(600,655,630,660);
rectangle(670,655,700,660);
rectangle(730,655,770,660);
rectangle(800,655,830,660);
Brush.Color:=Clyellow;
rectangle(350,480,520,600);
Brush.Color:=clRed;
rectangle(370,500,500,580);
Brush.Color:=clBlue;
rectangle(490,450,540,580);
Brush.Color:=clAqua;
rectangle(500,470,530,520);
Brush.Color:=clSilver;
Ellipse(430,560,510,655);
Ellipse(360,590,410,655);
Brush.Color:=clAqua;
Ellipse(450,580,490,635);
Ellipse(375,610,395,635);
Brush.Color:=clRed;
rectangle(480,440,550,450);
Brush.Color:=ClRed;
Polygon([Point(378,480),Point(365,440),Point(400,440),Point(388,480)]);
Brush.Color:=clSilver;
Rectangle(540,560,580,565);
Rectangle(560,540,565,580);
Brush.Color:=Clyellow;
rectangle(580,480,750,600);
Brush.Color:=clSilver;
Ellipse(600,590,650,655);
Ellipse(680,590,730,655);
Brush.Color:=clAqua;
Ellipse(615,610,635,635);
Ellipse(695,610,715,635);
Rectangle(590,500,630,560);
Rectangle(645,500,685,560);
Rectangle(700,500,740,560);
Brush.Color:=ClRed;
rectangle(560,470,770,480);
Brush.Color:=clSilver;
Rectangle(430,480,440,460);
Chord(420,450,450,480,450,465,420,465);



end;
 end;
end.