LoadDS Example for Delphi

var
   nRet: Integer;
begin
   //load a Data Set
   LEADDicomDS1.EnableMethodErrors:= False;
   nRet:= LEADDicomDS1.LoadDS ('d:\lead14\dist\images\dicom\image2.dic', 0);
   if(nRet <> DICOM_SUCCESS)then
      ShowMessage('Error ' + IntToStr(nRet) + ' loading file!');

   LEADDicomDS1.EnableMethodErrors:= True;
end;