DeleteModule Example for Delphi

var
   nRet: Integer;
begin
   LEADDicom1.EnableMethodErrors := false;
   { move to the first module in the DataSet and delete it }
   LEADDicom1.FindIndexModule(0);
   nRet := LEADDicom1.DeleteModule(LEADDicom1.CurrentModule.Module);
   If nRet <> SUCCESS Then
      ShowMessage('Error Deleting Module!');
   LEADDicom1.EnableMethodErrors := true;
end;