Polar example for Delphi

procedure TForm1.PolarClick(Sender: TObject);
begin
   LEADImage1.Polar( 0, FILL_RPT Or CART_TO_POL );
end;