[Admin]

Код:

var
 rgbColor: TColorRef;
 s: string;
begin
 rgbColor:=ColorToRGB($0080FF);
 s:='Color="#'+Format('%.2x%.2x%.2x', [GetRValue(rgbColor),
               GetGValue(rgbColor), GetBValue(rgbColor)])+'"';
 Form1.Caption:=s;
end;