Also Delphi und
HTML haben eine andere Reinfolge bei den Farbwerten (wenn ich das noch richtig weiß), also muß das 1. und 3. Byte getauscht werden.
RGB <> BGR
Delphi-Quellcode:
function ColorToHex(Col: TColor): String;
begin
Result := '#' + IntToHex(Byte(Col), 2) +
IntToHex(Byte(Col shr 8), 2) +
IntToHex(Byte(Col shr 16), 2);
end;