Можно завести еще одно поле для хранения контрольной сумме по записи
Например для таблицы с полями ID I , NAME C(35), DATE D добавьте еще поле KS C(20)

* Сохранение записи
Replace ID With 1, NAME With 'Вася', DATE With date()
* Сохранение контрольной суммы
Replace KS With KSUM(ID,NAME,DATE)
*
*
Через три дня проверяем
SCAN
if KS <> KSUM(ID,NAME,DATE) .and. messagebox('запись изменена!',33,'Мочить?') = 1
delete
endif
ENDSCAN

Волшебная функция ниже, полей может быть много.
* расчет контрольной суммы по записи
function KSUM
lparam p1, p2 , p3, p4, p5, p6 ,p7 ,p8 ,p9 ,p10, p11, p12, p13

local m.KOL_PARAM, i , s , makro
m.KOL_PARAM = parameters()

s=''
for i=1 to m.KOL_PARAM
makro = 'p'+alltrim(str(i))
m.TYPE = TYPE(makro)
do case
case m.TYPE = 'C'
s = s + &makro
case m.TYPE = 'N'
s = s + alltrim(str(&makro))
case m.TYPE = 'D'
s = s + dtos(&makro)
case m.TYPE = 'T'
s = s + tran(&makro)
endcase
endfor

RETURN int(VAL(SYS(2007,s)))