PreferredLoadFormat Example for Delphi

var
   RasterIO: LEADRasterIO;
begin
   RasterIO:= CreateComObject(CLASS_LEADRasterIO)as LEADRasterIO;
   RasterIO.PreferredLoadFormat:= FILE_CMP;
   //....... load a file
end;