Изменить идентификатор объекта
procedure ChangeObjectKey(aOldObjectKey, aNewObjectKey: int64; aSection: integer = 0);