AddNoise example for Delphi

//This example adds red noise and redisplays the bitmap.
var
   Rasterproc:LEADRasterProcess;
   sRet: smallint ;
begin
   Rasterproc:= CreateComObject (CLASS_LEADRasterProcess) as LEADRasterProcess;
   RasterProc.AddNoise ( LEADRasterView1.Raster, 500, CHANNEL_RED ) ;
   LEADRasterView1.ForceRepaint (sRet) ;

end;