TBezierVertex

type TBezierVertex = record

  case Integer of

    0: (

        Point: TFloatPoint;

        ControlPoints: array [0..1] of TFloatPoint;

      );

    1: (

        Points: array [0..2] of TFloatPoint;

      );

end;