MultiScaleEnhancement example for Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
   { Load the bitmap, keeping the bits per pixel of the file }
   LEADImage1.Load ('e:\\image1.cmp', 0, 1, 1 );

   // Apply multiscale enhancement
   LEADImage1.MultiScaleEnhancement( 2000, 4, MSE_DEFAULT , 0, 0, MSE_GAUSSIAN + MSE_EDGEENH);
end;