Label1.Caption = Combo1.List(Combo1.ListIndex)