Отменить удаление dBASE записи

Оформил: DeeCo

procedure RecordUndelete(aTable: TTable);
 begin
   aTable.UpdateCursorPos;
   try
     Check(DbiUndeleteRecord(aTable.Handle));
   except
     ShowMessage('No undelete performed.');
   end;
 end;