--- ---
Question
Is there a routine that can take a hex color value and convert it to a Delphi formatted value like: "Cornsilk1 Cornsilk1 255 248 220 #FFF8DC" into $00DCF8FF?

Untested:

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

    function HexColorToColor(HexColor: string): TColor;
      {input: '#FFF8DC' -> output $DCF8FF as TColor,
      use IntTohex to convert output to string again if needed}
    begin
      Assert(Length(hexcolor)) > 1);
      Assert(hexcolor[1] = '#');
      hexcolor[1] := '$';
      Result := Swap32(StrToInt(hexcolor));
    end;