PlaneBend example for Delphi

procedure TForm1.PlaneBendClick(Sender: TObject);
var
   ptCenter: TPoint;
begin
   ptCenter.x:= Trunc( LEADImage1.BitmapWidth );
   ptCenter.y:= Trunc( LEADImage1.BitmapHeight /2 );

   LEADImage1.PlaneBend( ptCenter, 0, Trunc(LEADImage1.BitmapHeight), Trunc(LEADImage1.BitmapWidth/2), -1, 0, 25, 100, 0, 0, 50, RGB(255,0,0), RGB(0,0,0), PLANE_DOWN Or PLANE_UP Or PLANE_FILL_CLR );
end;