if CDSUserFunc.Locate('mod_id;res_id', VarArrayOf([UserFunc.MOD_ID, UserFunc.RES_ID]), [loCaseInsensitive]) then
begin
CDSUserFunc.Delete;
end;
if not CDS_UserDict.Locate('DICT_ID', strDictId, [loCaseInsensitive]) then
begin
