LoadCompressed example for Delphi

var
   RasterIO: LEADRasterIO;
begin
   RasterIO:= CreateComObject(CLASS_LEADRasterIO) as LEADRasterIO;
   RasterIO.LoadCompressed:= True;
   //now the file will be loaded compressed
   RasterIO.Load (LEADRasterView1.Raster, 'c:\temp\test.tif', 0, 0, 1);
end;