[Alegun]

Вот так работает

Код:

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

У вас вызывается RGB а передается BGR