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