hDicDS Example for Delphi

{find the first PATIENT KEY, copy it to a new
  DS, and then save it to a file}
LEADDicom1.FindFirstKey ('PATIENT', False);
LEADDicom2.ResetDS ();
LEADDicom2.InsertDS (LEADDicom1.hDicDS, LEADDicom1.CurrentElement.hElement);
LEADDicom2.SaveDS ('d:\temp\save.dic', 0);