Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Как получить цвет строки в HTML формате?

01.01.2007

Если Вам необходимо создать HTML-файл, то необходимо объявить тэг для цвета шрифта либо цвета фона. Однако просто вставить значение TColor не получится - необходимо преобразовать цвет в формат RGB. В своём наборе SMExport я использую следующую функцию:

function GetHTMLColor(cl: TColor; IsBackColor: Boolean): string; 
var rgbColor: TColorRef;
begin
 
if IsBackColor then
   
Result := 'bg'
 
else
   
Result := '';
  rgbColor
:= ColorToRGB(cl);
 
Result := Result + 'color="#' +
           
Format('%.2x%.2x%.2x',
                   
[GetRValue(rgbColor),
                   
GetGValue(rgbColor),
                   
GetBValue(rgbColor)]) + '"';
end;

Взято из https://forum.sources.ru