FreeRadBend example for Delphi

procedure TForm1.FreeRadBendClick(Sender: TObject);
var
   apUserPoint: Array [ 0..3 ] of TPoint;
   Curve: Array [ 0..12 ] of L_INT;
   ptCenter: TPoint;
begin
   { Applay the filter }
   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 );

   ptCenter.x:=  Trunc(LEADImage1.BitmapWidth /2);
   ptCenter.y:=  Trunc(LEADImage1.BitmapHeight /2);
   LEADImage1.FreeRadBend( @Curve, 13, 200, ptCenter, RGB(255,0,0), FILL_CLR Or FILL_ROT );

end;