DeleteModule Example for Delphi

var
   nRet: Integer;
begin
   LEADDicomDS1.EnableMethodErrors:= False;
   // move to the first module in the DataSet and delete it
   LEADDicomDS1.FindIndexModule (0);
   nRet:= LEADDicomDS1.DeleteModule(LEADDicomDS1.DefaultInterface.Get_CurrentModule().Module);
   if(nRet <> 0)then
     ShowMessage('Error Deleting Module!');

   LEADDicomDS1.EnableMethodErrors:= True;
end;