AutoBinary example for Delphi

procedure TForm1.AutoBinaryClick(Sender: TObject);
begin
   LEADImage1.AutoBinary( );
end;