1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var aColor : Integer;
    s      : String;
begin
  aColor := clred;
  //aColor := $00DDD0BD;//oder auch so
  s := Format('#%.2x%.2x%.2x',
                     [aColor and $FF,
                     (aColor shr 8) and $FF,
                     (aColor shr 16) and $FF])
  showmessage(s);