SaveArray example for Delphi

var
   RasterVarBuffer: LEADRasterVariant;
   lSize: Longint;
   RasterIO: LEADRasterIO;
begin
   RasterIO:= CreateComObject (CLASS_LEADRasterIO) as LEADRasterIO;
   RasterIO.Load (LEADRasterView1.Raster, 'c:\windows\temp\saddam.bmp', 0, 1, 1 );

   RasterVarBuffer:= RasterIO.SaveArray (LEADRasterView1.Raster, FILE_BMP, 0, 2);
     lSize:= RasterIO.ArraySize (RasterVarBuffer);
     //get some info on the memory array
     RasterIO.GetArrayInfo (LEADRasterView1.Raster, RasterVarBuffer, 1, lSize);
     ShowMessage ( 'Format = ' + IntToStr(RasterIO.InfoFormat));
end;