Picturize example for Delphi

// Replace the current image in the main control with an image created
// from all the images present in c:\images. Resize all images present in that directory
// to 16x16 pixels and load them all in memory before proceeding
var
   RasterProc: LEADRasterProcess;
begin
   RasterProc:= CreateComObject(CLASS_LEADRasterProcess)as LEADRasterProcess;
   LEADRasterView1.ScaleMode:= 3;
   RasterProc.Picturize (LEADRasterView1.Raster,
                     'd:\pictures',
                     PICTURIZE_LOADALL+PICTURIZE_RESIZE, 24, 24)
end;