ErrorMsg (Main Control) example for Delphi

Lead1.EnableMethodErrors := true;
try
   Lead1.Load('c:\bad_name.xyz', 0, 0, 1);
except
   ShowMessage('File load failed'#10'Error No ' + IntToStr(Lead1.Error) + #10 + Lead1.ErrorMsg);
end;