Программирование Delphi

Есть ли функция или процедура для преобразования значений цвета в HEX формате в Delphi формат, типа этого: Cornsilk1 Cornsilk1 255 248 220 #FFF8DC в $00DCF8FF? Конечно есть!

function Swap32(aLong: Longint): Longint; assembler;
asm
  BSWAP eax
end;

function HexColorToColor(HexColor: string): TColor;
  { вход: строка '#FFF8DC' -> выход $DCF8FF как TColor,
  используйте IntToHex для преобразования в строку, если нужно }
begin
  Assert(Length(HexColor) > 1);
  Assert(HexColor[1] = '#');
  HexColor[1] := '$';
  Result := Swap32(StrToInt(HexColor));
end;