CARA MEMBUAT OBJEK SEPEDA DENGAN PEMOGRAMAN DELPHI

begin
canvas.Brush.Color:=clgray;
canvas.Pen.Width:=3;
canvas.Ellipse(300,200,400,300);
canvas.Brush.Color:=clcream;
canvas.Ellipse(310,210,390,290);

canvas.Brush.Color:=clolive;
canvas.Ellipse(340,240,360,260);

canvas.Brush.Color:=clolive;
canvas.Ellipse(430,230,470,270);

canvas.Brush.Color:=clgray;
canvas.Pen.Width:=3;
canvas.Ellipse(580,200,680,300);
canvas.Brush.Color:=clcream;
canvas.Ellipse(590,210,670,290);

canvas.Brush.Color:=clolive;
canvas.Ellipse(620,240,640,260);

canvas.Pen.Color:=clmaroon;
canvas.Polyline([point (350,250),point (450,170)]);

canvas.Polyline([point (350,250),point (430,250)]);

canvas.Polyline([point (450,230),point (450,150)]);

canvas.Pen.Width:=8;
canvas.Polygon([point(430,150),point(470,150)]);
canvas.Polygon([point(430,130),point(470,140)]);
canvas.Arc(420,130,440,150,430,130,430,150);
canvas.Arc(460,140,480,150,470,150,470,140);

canvas.Pen.Width:=5;
canvas.Polyline([point (470,250),point (600,170)]);

canvas.Pen.Width:=5;
canvas.Polyline([point (600,170),point (450,190)]);

canvas.Pen.Width:=5;
canvas.Polyline([point (630,250),point (600,170)]);

canvas.Pen.Width:=5;
canvas.Polyline([point (600,170),point (600,140)]);

canvas.Pen.Width:=5;
canvas.Polygon([point (580,120),point (620,150)]);

canvas.Pen.Color:=clblack;
canvas.Pen.Width:=1;
canvas.Polyline([point (350,240),point (440,230)]);

canvas.Pen.Color:=clblack;
canvas.Pen.Width:=1;
canvas.Polyline([point (350,260),point (440,270)]);

canvas.Pen.Color:=clblack;
canvas.Pen.Width:=5;
canvas.Polyline([point (450,250),point (420,280)]);

canvas.Pen.Color:=clblack;
canvas.Pen.Width:=5;
canvas.Polyline([point (415,280),point (425,280)]);

canvas.Pen.Color:=clblack;
canvas.Pen.Width:=5;
canvas.Polyline([point (480,215),point (465,230)]);

canvas.Pen.Color:=clblack;
canvas.Polyline([point (470,215),point (485,215)]);

end;