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