Delphi-PRAXiS - Delphi TColor Problem

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi TColor Problem (https://www.delphipraxis.net/191839-tcolor-problem.html)

Ok, das ist mir aktuell voll peinlich, aber ich komm gerade nicht weiter und ich rege mich auf, dass ich das noch nicht auf die Reihe gekriegt habe...

Ich habe das Problem eingegrenzt und nun auf das Minimum reduziert.

Code:

			function Brighten(AColor: TColor): TColor;

var

  H, S, L: Word;

begin

  ColorRGBToHLS(AColor, H, L, S);

  Result := ColorHLSToRGB(H, L, S);

end;

Ja, diese Funktion sollte eigentlich nichts machen, es sollte derselbe Rückgabewert, theoretisch...
Aber wenn ich

Code:

panel1.Color := Brighten(clInfoBk);

probiere, dann erscheint das Panel schwarz. Wieso??

Delphi 10.0 / Win 10

AW: TColor Problem

Ok, Danke, hat sich erledigt...

Code:

panel1.Color := Brighten(ColorToRGB(clInfoBk));

Dachte, dass die Farbe schon so im TColor drin ist... aber wohl nicht wirklich...

Gruss,
Ken