ColorToHslStr

function ColorToHslStr(

  const Color: TColor;

  AMaxHue: Integer = 239;

  AMaxSat: Integer = 240;

  AMaxLum: Integer = 240;

  Padding: Byte = 3;

  PaddingChar: char = '0';

  Separator: string = ','

):string;