将最后删除的记录恢复:
DbiSetProp(hDBIObj(table1.handle), curSOFTDELETEON,1);
table1.first;
for i:=1 to Table1.RecordCount do
begin
table1.UpdateCursorPos;
DbiUndeleteRecord(table1.handle);
table1.next;
end;
table1.first;
DbiSetProp(hDBIObj(table1.handle), curSOFTDELETEON,0);