СomboBox

[goodvin1709]

Делал так
procedure TForm1.FormCreate(Sender: TObject);
begin
combobox1.Items.Add('1');
combobox1.Items.Add('2');
combobox1.Items.Add('3');
combobox1.Items.Add('4');

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if comboBox1.Items[ComboBox1.ItemIndex]='1' then
label2.Caption:='верно 1';
if comboBox1.Items[ComboBox1.ItemIndex]='2' then
label2.Caption:='верно 2';
if comboBox1.Items[ComboBox1.ItemIndex]='3' then
label2.Caption:='верно 3';
end;
РАБОТАЕТ