[Страдалецъ]

Вот в таком духе сделаете второй флаг:

Код:

procedure TForm1.PaintBox1Paint(Sender: TObject);
Var i: Integer;
begin
 PaintBox1.Canvas.Pen.Color := clWhite;
 PaintBox1.Canvas.Brush.Color := clSkyBlue;
 PaintBox1.Canvas.Rectangle(10,10,210,100);
 PaintBox1.Canvas.Brush.Color := clWhite;
 PaintBox1.Canvas.Rectangle(10,40,210,70);

 PaintBox1.Canvas.Pen.Color := clOlive;
 for i := 1 to 19
 do begin
    PaintBox1.Canvas.MoveTo(110,55);
    PaintBox1.Canvas.LineTo(110+Round(Sin(i)*16),55+Round(Cos(i)*16));
    end;
 PaintBox1.Canvas.Brush.Color := clYellow;
 PaintBox1.Canvas.Ellipse(100,45,120,65);
 PaintBox1.Canvas.Pen.Width := 2;
 PaintBox1.Canvas.Ellipse(104,50,109,55);
 PaintBox1.Canvas.Ellipse(111,50,116,55);
 PaintBox1.Canvas.Ellipse(108,58,112,61);
end;