Cylindrical example for Delphi

procedure TForm1.CylindricalClick(Sender: TObject);
begin
   LEADImage1.Cylindrical( 100, CYL_HORZ );
end;