Может кто знает как рисовать флаг швейцарии или дании в delphi

Дания:) Написать в OnPaint
Canvas.FillRect(Rect(10, 10, 3 * 200 + 10, 2 * 200 + 10));
Canvas.Brush.Color := clWhite;
Canvas.FillRect(Rect(140, 10, 190, 2 * 200 + 10));
Canvas.FillRect(Rect(10, round(2 * 200 / 2) - 25, 3 * 200 + 10, round(2 * 200 / 2) + 25));