SmoothEdges example for Delphi

procedure TForm1.SmoothEdgesClick(Sender: TObject);
begin
   LEADImage1.SmoothEdges( 75, 0 );
end;