var

  NeedNumber: Integer;

...

NeedNumber := Table.RecNo;

{сохранение номера нужной записи}

...

{код меняющий номе записи}

...

Table.RecNo := NeedNumber;

{востановление номера нужной записи}