[T-dayne]

Нужно перевести строчку типа cf0404 в формат, применмый например к фону едита, т.е. Tcolor.
Делаю такую функцию:

Код:

function TForm2.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

Тоже самое вывовдит при использовании стандартной функции StringToColor.
Как можно решить данную проблему?
ПС: Строчка с кодом читается из ини файла так:

Код:

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

Файл существует и читаем 100%.