关于widenpath的问题，高人进~~~~

Question

在用WidenPath画一条带轮廓直线的时候，在转角的时候会出现小的三角形，请问怎么解决？=====================
以下是代码：procedure TForm1.Button1Click(Sender: TObject);
const
  ZoneWidth = 15;
begin
  SetPolyFillMode(Canvas.Handle, WINDING);
  Canvas.Pen.Style := psSolid;  Canvas.Pen.Width := ZoneWidth;
  Canvas.MoveTo(10, 10);
  BeginPath(Canvas.Handle);
    Canvas.LineTo(50, 10);
    Canvas.LineTo(100, 50);
  EndPath(Canvas.Handle);
  WidenPath(Canvas.Handle);  Canvas.Pen.Color := clBlack;
  Canvas.Brush.Color := clRed;
  Canvas.Pen.Width := 1;
  StrokeAndFillPath(Canvas.Handle);
end;