Нарисовать флаг Ямайки

procedure TForm1.FormCreate(Sender: TObject);
begin
clientwidth:=600;
clientheight:=300;
position:=poScreenCenter;
end;
 
procedure TForm1.FormPaint(Sender: TObject);
begin
with Canvas do
 begin
  brush.Color:=clYellow;
  fillrect(cliprect);
  brush.Color:=clGreen;
  polygon([point(30,0),point(570,0),point(clientwidth div 2,clientheight div 2-20),
           point(30,0)]);
  polygon([point(30,300),point(570,300),point(clientwidth div 2,clientheight div 2+20),
           point(30,300)]);
  brush.Color:=clBlack;
  polygon([point(0,15),point(0,285),point(clientwidth div 2-20,clientheight div 2),
           point(0,15)]);
  polygon([point(600,15),point(600,285),point(clientwidth div 2+20,clientheight div 2),
           point(600,15)]);
 end;
end;