procedure TStrokeBuilder.BuildSolidPolygon(const Points: TPolygon; const Opacity: Single; BreakAtEnd: Boolean);

...略...

  while CurIndex < Length(Points) do

  begin

    if (CurIndex >= Length(Points) - ) and BreakAtEnd and (Points[] <> Points[Length(Points) - ]) then

{--->删除这行 Break;}

{+++>新增代码}

    // 修复曲线最后一点断线的问题 by Aone (2016/03/25)

    begin

      PieceDirVec := (DestPos - SrcPos).Normalize;

      ThickPerp := TPointF.Create(-PieceDirVec.Y, PieceDirVec.X) * FHalfThickness;

      InsertVertex(DestPos - ThickPerp, FStrokeColor);

      InsertVertex(DestPos + ThickPerp, FStrokeColor);

      if PrevVerticesPlaced then

      begin

        InsertIndex(FCurrentVertex - );

        InsertIndex(FCurrentVertex - );

        InsertIndex(FCurrentVertex - );

        InsertIndex(FCurrentVertex - );

        InsertIndex(FCurrentVertex - );

        InsertIndex(FCurrentVertex - );

      end;

      Break;

    end;

{<+++}

...略...

end;