procedure TForm1.Button1Click(Sender: TObject);
begin
With PaintBox1.Canvas do
begin
Brush.Color:=clyellow;
Ellipse(150,200,300,50);
Brush.Color:=clWhite;
Ellipse(190,80,220,110);
Brush.Color:=clBlack;
Ellipse(200,90,210,100);
Brush.Color:=clWhite;
Ellipse(240,80,270,110);
Brush.Color:=clBlack;
Ellipse(250,90,260,100);
Brush.Color:=clWhite;
Ellipse(215,120,245,130);
Arc(190,131,270,150,191,131,280,131);
Brush.Color:=clmaroon;
Ellipse(150,30,300,80);
Brush.Color:=clred;
ellipse(210,20,240,40);
Brush.Color:=clyellow;
Polygon([Point(296,150),Point(330,110),Point(320,115)]);
TextOut(350,50,'Привет!');
end;
end;

end.