Load Example for Delphi

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