Load (Mixed Raster Content Control) example for Delphi

var
   nPages: Longint;
begin
   LEADMrc1.EnableMethodErrors := True;
   LEADMrc1.GetPagesCount ('c:\temp\testT44.mrc', @nPages ) ;
   Caption := 'File has ' + IntToStr(nPages) + ' pages';
   //load last page
   LEADMrc1.Load ('c:\temp\testT44.mrc', nPages ) ;
   LEADImage1.Bitmap := LEADMrc1.Bitmap;
end;