bounds

Ответ от Striker[гуру]
У Вас ItemIndex = -1, поэтому и ошибку выдает. Надо хотя бы так написать: procedure TForm8.Button1Click(Sender: TObject); var b:string; i:integer; begin i:=0; if combobox2.Itemindex<>-1 then begin for i:=0 to Listbox1.Items.count-1 do Begin b:=ListBox1.Items[ i]; //тут надо пробел перед i убрать showmessage(b); end; end; end.