THsl

THsl = packed record
hue : byte;
sat : byte;
lum : byte;
alpha : byte;
end;