InsertElement Example for Delphi

var
   nRet: Integer;
begin
   LEADDicomDS1.EnableMethodErrors:= False;
   //insert the new element
   LEADDicomDS1.FindTag (TAG_DISCHARGE_DATE);
   nRet:= LEADDicomDS1.InsertElement (False, TAG_DISCHARGE_DATE, LEADDicomDS1.DefaultInterface.Get_CurrentTag().VR, False, Integer(ELEMENT_INDEX_MAX));
   if(nRet <> 0)then
      ShowMessage('Error Inserting Element');

   LEADDicomDS1.EnableMethodErrors:= True;
end;