procedure RecordUndelete(aTable: TTable);

 begin

   aTable.UpdateCursorPos;

   try

     Check(DbiUndeleteRecord(aTable.Handle));

   except

     ShowMessage('No undelete performed.');

   end;

 end;