FindIndexModule Example for Delphi

var
   uCount, n: Cardinal;
   sOut: String;
begin
   LEADDicom1.EnableMethodErrors := false;
   uCount := LEADDicom1.GetModuleCount();
   LEADDicom1.GetInfoDS();
   sOut := 'Found ' + IntToStr(uCount) + ' Modules' + #10 + #13;
   For n := 0 To uCount - 1 do
   begin
      LEADDicom1.FindIndexModule(n);
      LEADDicom1.FindModuleIOD(LEADDicom1.InfoClass, LEADDicom1.CurrentModule.Module);
      sOut := sOut + 'Module ' + LEADDicom1.CurrentIOD.Name + #10 + #13;
   end;
   ShowMessage(sOut);
   LEADDicom1.EnableMethodErrors := true;
end;