Fórum TColor para html #230237

function ColorToHtml1(Color: TColor): string;
var
  COL: LongInt;
begin
  COL := ColorToRGB(Color);
  Result := ´#´ + IntToHex(COL and $FF, 2) +
    IntToHex(COL shr 8 and $FF, 2) +
    IntToHex(COL shr 16 and $FF, 2);
end; 

function ColorToHtml2(Clr: TColor): string;
begin
  Result := IntToHex(clr, 6);
  Result := ´´ + Copy(Result, 5, 2) + Copy(Result, 3, 2) + Copy(Result, 1, 2);
end;