Проблема с ComboBox

[NikLik]

 procedure TForm1.ComboBox1Click(Sender: TObject);  
 begin  
if combobox1.ItemIndex = 0 then  begin
 label1.Caption := '1 TEST';  
 label2.Caption := 'JET';  // Вот это как раз не меняится
end;
  if form1.combobox1.ItemIndex = 1 then begin
  label1.Caption := '2 TEST';  
 label2.Caption := 'QWERTY';  // Вот это тоже
end;
 end;

[boostman]

Чтото невыходит((

[Stilet]

Вместо OnClick посади этот код в OnChange.

[Terran]

Чтото невыходит((

Пример, который приводил NikLik работает.