THsl

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