Нарисовать флаг Пуэрто Рико

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit5.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm5 *Form5;
//---------------------------------------------------------------------------
__fastcall TForm5::TForm5(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm5::FormResize(TObject *Sender)
{
Refresh();
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Button1Click(TObject *Sender)
{
PaintBox1->Canvas-> Pen -> Style = psClear;
PaintBox1->Canvas->Brush->Color=clRed;
PaintBox1->Canvas->Rectangle(0, 0, 900, 550);
PaintBox1->Canvas->Brush ->Color=clWhite;
PaintBox1->Canvas-> Pen -> Style = psClear;
PaintBox1->Canvas->Rectangle(0, 110, 900, 220);
PaintBox1->Canvas->Brush ->Color=clWhite;
PaintBox1->Canvas->Rectangle(0, 330, 900, 440);
PaintBox1->Canvas-> Pen -> Style = psSolid;
PaintBox1->Canvas-> Pen -> Color = clBlue;
PaintBox1->Canvas-> Pen -> Width = 5;
PaintBox1->Canvas->Brush ->Color=clBlue;
PaintBox1->Canvas->MoveTo(0, 0 );
PaintBox1->Canvas->LineTo(338, 275 );
PaintBox1->Canvas->LineTo(0, 549 );
PaintBox1->Canvas->LineTo(0, 0 );
}
//---------------------------------------------------------------------------

PaintBox1->Canvas->Brush ->Color=clBlue;
// PaintBox1->Canvas->MoveTo(0, 0 );
// PaintBox1->Canvas->LineTo(338, 275 );
// PaintBox1->Canvas->LineTo(0, 549 );
// PaintBox1->Canvas->LineTo(0, 0 );
TPoint points[3] = {Point(0, 0), Point(338, 275), Point(0, 549)};
PaintBox1->Canvas->Polygon(points, 2);