[Savant]

если у меня ListBox формируется динамически

Когда будет ясно кол-во пунктов (а лучше всегда в обработчике OnChange) делаем SetLength(a, Listbox1.Lines.Count или нужное кол-во строк) и далее заполняем a[nnn] := Номер_строки_в_которой_отобразится_меню