коды цветов, перекодирование Опции

[мисс_граффити]

Как можно сделать получение кода цвета в виде 'FFFFFF' (строкой)?
То есть, например, выбираем в ColorDialog цвет, который нравится, и получаем такой код...

Идея была такая:

var col: TColor;
begin
ColorDialog1.Execute;
col:=ColorDialog1.Color;
Edit1.Text:=ColorToString(col);
end;

Для некотрых цветов получается что-то типа: $00408080 , для других - вообще clWhite

Заранее спасибо.

[Malice]

Tcolor - это обычное число, переводи в hex и все..

[volvo]

  Edit1.Text := 
    inttohex(GetRValue(col), 2) + 
    inttohex(GetGValue(col), 2) +
    inttohex(GetBValue(col), 2);

[мисс_граффити]

спасибо