menggambar kepala dengan delphi

untuk menggambar kepala caranya yaitu;
- masuk ke delphi dan siapkan form
- siapkan button
- captionnya diubah dengan tulisan "kepala"
- klik 2X pada button tersebut
tulis prosedurnya SBB:
procedure Tform1.bgambarClick(sender: TObject);

//menggambar kotak
canvas.Rectangle(10,10,20,20);
canvas.Rectangle(50,50,75,75);
//menggambar kotak dengan garis putus-putus
canvas.Pen.style:=psdot;
canvas.Rectangle(100,30,150,80);
//menggambar kotak dengan bagian pinggir melengkung
canvas.Pen.Style:=pssolid;
canvas.RoundRect(125,110,200,250,20,20);
//menggambar lingkaran(ellips)
canvas.ellipse(200,10,250,100);
//menggambar busur
canvas.arc(275,10,400,150,260,200,390,130);
//menggambar potongan kue
canvas.pie(10,300,100,400,15,350,150,125);
//menggambar poligon(polyline)
canvas.pen.color:=clred;
canvas.polyline([point(100,410),point(150,360),point(150,410),point(100,410)]);
canvas.pen.color:=clblue;
canvas.polygon([point(175,410),point(250,360),point(250,410),point(175,410)]);

end;


end.

- RUN programnya dan lihat hasilnya melalui button