DeleteElement Example for Delphi

var
   nRet: Integer;
begin
   LEADDicom1.EnableMethodErrors := false;
   LEADDicom1.FindFirstElement(TAG_STUDY_DATE, false);
   nRet := LEADDicom1.DeleteElement();
   LEADDicom1.EnableMethodErrors := true;
   If nRet <> SUCCESS Then
      ShowMessage('Error Deleting Element!');
end;