Рис. 1.19. Олимпийский флаг

// рисует олимпийский флаг
procedure TForml.FormPaint(Sender: TObj ect);
begin
with Canvas do
begin
// полотнище
Canvas.Pen.Width := 1;
Canvas.Pen.Color := clBlack;
Canvas.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;
end;