FreePlaneBend example for Delphi

procedure TForm1.FreePlaneBendClick(Sender: TObject);
var
   apUserPoint: Array [ 0..3 ] of TPoint;
   Curve: Array [ 0..12 ] of L_INT;
begin
   apUserPoint [0].x:= 0;
   apUserPoint [0].y:= 0;

   apUserPoint [1].x:= 3;
   apUserPoint [1].y:= 10;

   apUserPoint [2].x:= 9;
   apUserPoint [2].y:= -10;

   apUserPoint [3].x:= 12;
   apUserPoint [3].y:= 0;

   LEADImage1.GetCurvePoints( @apUserPoint, 4, @Curve, Nil, GUB_LINEAR );

   LEADImage1.FreePlaneBend( @Curve, 13, 200, RGB(255,0,0), FILL_CLR Or FPB_VERT );
end;