[AlexandrV]

Нельзя. Я перевожу под OpenGl цвет а у него цвет перевернутый сверх на голову. Мне нужно из этот код [$FF0000]

перевести в этот clBlue для перевода в этот используется эта функция

Код:

function ColorToHex(Color: TColor): string;
begin
  Result :='$'+
  IntToHex(GetBValue(Color), 2) +
  IntToHex(GetGValue(Color), 2) +
  IntToHex(GetRValue(Color), 2) ;
end;

вот функция назад перевода

Код:

Function HexToColor(HexColor:String): TColor;
begin
  if pos('$',HexColor)>=0 then System.Delete(HexColor,pos('$',HexColor)-1,1);
  Result :=
      RGB(
        StrToInt('$'+Copy(HexColor, 1, 2)),
        StrToInt('$'+Copy(HexColor, 3, 2)),
        StrToInt('$'+Copy(HexColor, 5, 2))
      ) ;
end;

но надо избавиться от этих скобок []