FindModule Example for Delphi

var
   nRet: Integer;
begin
   LEADDicom1.EnableMethodErrors := false;
   nRet := LEADDicom1.FindModule(DICOM_MODULE_NM_TOMO_ACQUISITION);
   If nRet <> SUCCESS Then
      ShowMessage('Not Found')
   else
   begin
      LEADDicom1.GetInfoDS();
      LEADDicom1.FindModuleIOD(LEADDicom1.InfoClass, DICOM_MODULE_NM_TOMO_ACQUISITION);
      ShowMessage('Found Module ' + LEADDicom1.CurrentIOD.Name);
   end;
   LEADDicom1.EnableMethodErrors := true
end;