ListBox1.Color:=ColorBox1.Colors[ListBox1.ItemIndex];
ShowMessage(ColorBox1.ColorNames[ListBox1.ItemIndex]);