InsertModule Example for Delphi

var
   nRet: Integer;
begin
   LEADDicom1.EnableMethodErrors := false;
   LEADDicom1.GetInfoDS();
   nRet := LEADDicom1.InsertModule(DICOM_MODULE_MULTI_FRAME_OVERLAY, true);
   If nRet <> SUCCESS Then
      ShowMessage('Error Inserting Module!')
   Else
   begin
      LEADDicom1.FindModuleIOD(LEADDicom1.InfoClass, LEADDicom1.CurrentModule.Module);
      ShowMessage('Inserted Module:'#10#13 + LEADDicom1.CurrentIOD.Name);
   end;
End;