procedure TForm1.Button1Click(Sender: TObject);
begin
With PaintBox1.Canvas do begin
Polygon([Point(50,150), Point(400,150)]);
Polygon([Point(50,200), Point(400,200)]);
Brush.Color:=clGray;
Rectangle(250,160,300,170);
Rectangle(250,180,300,190);
Brush.Color:=clBlack;
Rectangle(350,50,380,120);
Brush.Color:=clRed;
Ellipse(360,60,370,70);
Brush.Color:=clYellow;
Ellipse(360,80,370,90);
Brush.Color:=clGreen;
Ellipse(360,100,370,110);
Brush.Color:=clBlack;
Rectangle(360,120,368,150);
Brush.Color:=clmaroon;
rectangle(60,120,65,150);
Brush.Color:=clGreen;
Ellipse(49,50,78,120);
Brush.Color:=clGray;
Rectangle(150,50,250,120);
Brush.Color:=clred;
Polygon([Point(140,51),Point(200,10),Point(260,51)]);
end;
end;
end.