Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

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