Bending example for Delphi

procedure TForm1.BendingClick(Sender: TObject);
var
   ptCenter: TPoint;
begin
   ptCenter.x:= Trunc(LEADImage1.BitmapWidth/2);
   ptCenter.y:= Trunc(LEADImage1.BitmapHeight /2);
   LEADImage1.Bending( 100, ptCenter,  0, FILL_RPT Or FILL_WOUTROT Or BND_NORM );
end;