DeleteElement Example for Delphi

var
   nRet: Integer;
begin
   LEADDicomDS1.EnableMethodErrors:= False;
   LEADDicomDS1.FindFirstElement (TAG_STUDY_DATE, False);
   nRet:= LEADDicomDS1.DeleteElement ();
   LEADDicomDS1.EnableMethodErrors:= True;
   if(nRet <> 0)then
      ShowMessage('Error Deleting Element!');
end;