TColor - Helligkeit und Sättigung (Get/Set)

[static_cast]

Hallöle,

ich suche eine function zum setzen und lesen der Helligkeit und Sättigung eines TColor wertes, hat da vllt jemand was zu?

Ich stelle mir das so vor:

Delphi-Quellcode:

function GetLightness(AColor:TColor):Byte;
function GetSatiation(AColor:TColor):Byte;
procedure SetLightness(var AColor:TColor; AValue:Byte);
procedure SetSatiation(var AColor:TColor; AValue:Byte);

Hoffe ihr könnt mir da etwas weiterhelfen. Hab auch schon gesucht aber die ergebnis waren nicht so das was ich suchte