[Alegun]

Возьмите лучше со вкладки палитры Data Controls компонент DBLookupComboBox,
останется только задать у него свойство KeyField как VID,
а для ListSource можно указать источник (DataSource) данной таблицы -
комбисписок будет заполнен автоматом