InsertDS Example for Delphi

   //find the first PATIENT KEY, copy it to a new
   //DS, and then save it to a file
   LEADDicomDS1.FindFirstKey('PATIENT', False);
   LEADDicomDS2.ResetDS();
   LEADDicomDS2.InsertDS(LEADDicomDS1.hDicomDS, LEADDicomDS1.DefaultInterface.Get_CurrentElement().hElement);
   LEADDicomDS2.SaveDS('d:\temp\save.dic', 0);