Спасибо за ответ.
Правда, я уже и сам разобрался. Запомнить номер можно так:
ValueListEditor1->Strings->Objects[i]=(TObject*)ADOQExec->FieldByName("Id")->AsInteger;
Получить номер из Objects можно так:
Edit1->Text=IntToStr((int)ClientRec->ValueListEditor1->Strings->Objects[CurRow]);