InsertModule Example for Delphi

var
   nRet: Integer;
begin
   LEADDicomDS1.EnableMethodErrors:= False;
   LEADDicomDS1.GetInfoDS ();
   nRet:= LEADDicomDS1.InsertModule(DICOM_MODULE_LUT_IDENTIFICATION, True);
   if(nRet <> 0)then
      ShowMessage('Error Inserting Module!')
   else
   begin
     nRet:= LEADDicomDS1.FindModuleIOD (LEADDicomDS1.InfoClass, LEADDicomDS1.DefaultInterface.Get_CurrentModule().Module);
     ShowMessage('Inserted Module ' + LEADDicomDS1.DefaultInterface.Get_CurrentIOD().Name);
   end;
end;