Делал так
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;
РАБОТАЕТ
__________________
---------------------------__--------__-----
---____- ___--____--- ___/'- /__ ___-(__)-____
--/-___-/-__-\/-__--\ /-__--'/--|-/--//---//--__--\
-/-/_/ -/-/_/--/-/_/--/-/_/--/|--|/--'//---//--/-/--/
-\___-/\____/\____/\____/-|____//__'//_'/-/__/
/_-__/
|