Farbe zu Laufzeit definieren?

[scp]

Delphi-Quellcode:

function ColorToHTML(AColor : TColor) : String;
begin
  result := '#' + IntToHex((AColor       ) and $FF, 2)
                + IntToHex((AColor shr  8) and $FF, 2)
                + IntToHex((AColor shr 16) and $FF, 2);
end;