var zn: array[0..2] of integer = (30, 20, 10); procedure TForm1.ComboBox1Change(Sender: TObject); begin Label1.Caption:= IntToStr(zn[(Sender as TComboBox).ItemIndex]); end;