Kolory inne niż standardowe

Witam.
Jesli chcemy zmienić kolor Labela to mamy do dyspozycji ok 10 kolorów. Możemy napisać :
Label1.Color := clBlue;

A co zrobić jeśli taki kolor nam nieodpowiada. Chcemy uzyskać inny odcień.

F1 i szukaj TColor type.

opcja 1.

var
  StaryKolor,Kolor:TColor;
begin
  StaryKolor:=Label1.Color;//zapamiętanie starego koloru
  Kolor:=RGB(x,y,z);          //określenie nowego koloru
  Label1.Color:=Kolor;        //przypisanie nowego koloru
  ...
  Label1.Color:=StaryKolor;//powrót do starego koloru
end;

opcja 2.

begin
  Label1.Color:=RGB(x,y,z);
  ...
end;

gdzie x - składowa czerwieni, y - składowa zieleni a z - składowa koloru niebieskiego. Wszystkie typu Byte.

ok. Dzięki.

Ja tam polecam użycie zapisu szesnastkowego. W kolejności BGR (żeby było trudniej :D) podstawiane zamiast funkcji RGB. Jest to najprościej w świecie szybsze (w sensie wykoniania, niekoniecznie oprogramowania).