Проверить несколько условий

[D.O.G]

Привет всем. Как можно проверить несколько условий в одной процедуре и в зависимости от данного результата совершить действие.

if ComboBox1.ItemIndex=0 then 
   ComboBox2.Visible:=True;
   ComboBox3.Visible:=false;
   ComboBox4.Visible:=false;
   ComboBox5,Visible:=false else
   begin if  ComboBox1.ItemIndex=1 then 
               ComboBox2.Visible:=false;
               ComboBox3.Visible:=True;
               ComboBox4.Visible:=false;
               ComboBox5,Visible:=false else 
               begin if  ComboBox1.ItemIndex=2 then 
                           ComboBox2.Visible:=false;
                           ComboBox3.Visible:=false;
                           ComboBox4.Visible:=True;
                           ComboBox5,Visible:=false else
                           begin if  ComboBox1.ItemIndex=3 then 
                                       ComboBox2.Visible:=false;
                                       ComboBox3.Visible:=false;
                                       ComboBox4.Visible:=false;
                                       ComboBox5,Visible:=True;

Выглядит ужасно и не работает, и не должно работать. это пример Что я хочу получить еслт поняли подскажите

[artemavd]

Может стоит использовать case...of?

[DIgorevich]

case ComboBox1.ItemIndex of
1: begin
     ComboBox2.Visible:=True;
     ComboBox3.Visible:=false;
     ComboBox4.Visible:=false;
     ComboBox5,Visible:=false;
    end;
2: begin
       ComboBox2.Visible:=false;
       ComboBox3.Visible:=false;
       ComboBox4.Visible:=True;
       ComboBox5,Visible:=false;
    end;
end;

[D.O.G]

спасибо большое