RGBToHLS

procedure RGBToHLS(

  const R: Single;

  const G: Single;

  const B: Single;

  out H: Single;

  out L: Single;

  out S: Single

); overload;

procedure RGBToHLS(

  const Color: TColor;

  out H: Single;

  out L: Single;

  out S: Single

); overload;