Ich weiß zwar nicht, was W sein soll, aber ich würde es mal so probieren:
Delphi-Quellcode:
Format('%.2x%.2x%.2x%.2x',[
Color and $ff,
(Color shr 8) and $ff,
(Color shr 16) and $ff,
Color shr 24
]);
Gegebenenfalls vorher ColorToRGB aufrufen, wenn du auch Systemfarben als
RGB haben möchtest.