Source position: graphutil.pp line 31
procedure ColorToHLS(
const AColor: TColor;
out H: Byte;
out L: Byte;
out S: Byte
);