Source position: HSLUtils.pas line 81
procedure RGBtoHSL(
RGB: TColor;
var H: Double;
var S: Double;
var L: Double
);