case Combobox1.ItemIndex of
1: ...;
2: ...;
3: ...;
end;

__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...