FindIndexModule Example for Delphi

var
   nCount: LongInt;
   strOut: String;
   x: Integer;
begin
   LEADDicomDS1.EnableMethodErrors:= False;
   nCount:= LEADDicomDS1.GetModuleCount ();
   LEADDicomDS1.GetInfoDS ();
   strOut:= 'Found ' + IntToStr(nCount) + ' Modules' + Chr(10) + Chr(13);
   for x:= 0 to nCount - 1 do
   begin
     LEADDicomDS1.FindIndexModule (x);
     LEADDicomDS1.FindModuleIOD (LEADDicomDS1.InfoClass, LEADDicomDS1.DefaultInterface.Get_CurrentModule().Module);
     strOut:= strOut + 'Module ' + LEADDicomDS1.DefaultInterface.Get_CurrentIOD().Name + Chr(10) + Chr(13);
   end;
   ShowMessage(strOut);
   LEADDicomDS1.EnableMethodErrors:= True;
end;