Form1.Canvas.Pixels[10, 10] :=clRed

форм бетіндегі нүктені қызыл түске бояйды. 

шығарамыз.  Формаға  Image,  button1  компоненттерін  орналастырамыз.  Button1  компонентінің  Caption 

қасиетіне «сурет салу» мәнін енгіземіз. Button1 компонентінің Onclick  оқиғасын құрамыз. Коды: 

procedure TForm1.Button1Click(Sender: TObject); 

begin 

 with Image1.canvas do 

pen.Width:=1;Pen.Color:=clblack; 

brush.Color:=clcream;Rectangle(30,30,150,115); 

pen.Width:=2;brush.Style:=bsclear; 

Pen.Color:=clblue;ellipse(40,40,80,80); 

Pen.Color:=clblack;ellipse(70,40,110,80); 

Pen.Color:=clred;ellipse(100,40,140,80); 

Pen.Color:=clyellow;ellipse(55,65,95,105); 

Pen.Color:=clgreen;ellipse(85,65,125,105); 

end;