Canvas.Polygon, border is missing

Tried with Tokyo 10.2.2 with CrossVCL 0.99i for Ubuntu 16.04 LTS under VirtualBox

the Red border is missing

works under OSX 10.13

procedure TForm1.FormPaint(Sender: TObject);
var
 p: array[0..2] of TPoint;
begin
  with Canvas do
  begin
    p[0].X := 250;
    p[0].Y := 50;
    p[1].X := 350;
    p[1].Y := 50;
    p[2].X := 300;
    p[2].Y := 150;
    Brush.Color := clYellow;
    Pen.Color := clRed;
    Polygon(P);
  end;
end;

fixed at 0.99j