Если я тебя правильно понял:

procedure TForm1.Button1Click(Sender: TObject);
var
rgb: Cardinal;
begin
rgb:=ColorBox1.Selected;
Edit1.Text:=Format('%2x%2x%2x', [GetRValue(rgb), GetGValue(rgb), GetBValue(rgb)]);
end;


на форме:
1. TButton
2. TColorBox
3. TEdit

выбираешь в ColorBox'e цвет
щелкаешь на батон
в Edit'e видишь код

__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...