将一TColor转换为HTML文件中能够使用的16进制颜色值（我自已试出来的，
已经在多个程序中使用并证明可行）
function RGBColor(Color: TColor): string;
var
RValue, GValue, BValue: integer; //RGB颜色值
begin
RValue := GetRValue(Color);
GValue := GetGValue(Color);
BValue := GetBValue(Color);
Result := 'RGB(' + IntToStr(RValue) + ',' + IntToStr(GValue) +
',' + IntToStr(BValue) + ')';
end;
在HTML文件中可以直接用象RGB(00,ff,00)这样的颜色值
