Что вы хотите сделать-то? Выбрать в комбо нужный пункт вам правильно подсказывают:
Код:
if ComboBox1.Items.Count <> 0 then
ComboBox1.ItemIndex := N;
Добавить в ListBox строку, выбранную в комбо:
Код:
S := ComboBox1.Items[ComboBox1.ItemIndex];
if ListBox1.IndexOf(S) = -1 then
ListBox1.Items.Add(S);
Это если с проверкой на дублирование строк в списке. Если без проверки -
if не нужен.