ColorDialog | получить шестандцатеричный код выбранного цвета

[T-dayne]

собственно, проблема в заголовке, помогите написать функцию, возвращающую код выбранного цвета в colordialog.
#xxxxxx

[KoliyR]

Какую функцию?, в этом компоненте есть свойства - вот ими и пользуйся

[T-dayne]

KoliyR
есть свойство .color , но оно возвращает цвет в формате tcolor.
А мне нужна в итоге стринговая переменная с кодом цвета.

[ОДИНОЧЕСТВО В СЕТИ]

function ColorToHTMLHexColor(Color: TColor): string;
begin
  result := IntToHex(GetRValue(ColorToRGB(Color)), 2) +
    IntToHex(GetGValue(ColorToRGB(Color)), 2) +
    IntToHex(GetBValue(ColorToRGB(Color)), 2);
end;

[KoliyR]

G := GetGValue(ColorDialog.Color);
R := GetRValue(ColorDialog.Color);
B := GetBValue(ColorDialog.Color);

[Stilet]

Что хелп отменили?

Returns a string that represents the name of a TColor value.

Unit

Graphics

Category

graphics utilities

function ColorToString(Color: TColor): string;

Description

Call ColorToString to obtain a string that represents a TColor value. If there is a symbolic constant defined for the color (such as clBlack or clWindow), ColorToString returns the name of the constant. Otherwise, ColorToString returns the hex value of the color, formatted as a string such as '$02FF8800'.

[T-dayne]

ОДИНОЧЕСТВО В СЕТИ
Спасибо вам.
Возникла новая проблема, нужно написать обратную функцию, преобразования 16ричного кода в Tcolor. Это возможно вообще?

[Google2010]

написать обратную функцию, преобразования 16ричного кода в Tcolor

function HexToTColor(sColor : string) : TColor;
begin
   Result :=
     RGB(
       StrToInt('$'+Copy(sColor, 1, 2)),
       StrToInt('$'+Copy(sColor, 3, 2)),
       StrToInt('$'+Copy(sColor, 5, 2))
     ) ;
end;

а вообще вот

Модуль graphics.pas содержит функцию ColorToString() которое преобразует допустимое значение TColor в его строковое представление используя либо константу-название цвета (по возможности) либо шестнадцатиричную строку. Обратная функция - StringToColor()

[T-dayne]

function HexToTColor(sColor : string) : TColor;
begin
   Result :=
     RGB(
       StrToInt('$'+Copy(sColor, 1, 2)),
       StrToInt('$'+Copy(sColor, 3, 2)),
       StrToInt('$'+Copy(sColor, 5, 2))
     ) ;
end;

Вот с такой функцией получается ошибка: '$' is not valid integer value
В этом коде:

edit2.Color:=hextotcolor(ini.ReadString('main', 'title1color', ''));

Где ошибка?

[T-dayne]

В инишнике эта строчка выглядит так:

[titles]
title1color=cf0404