Helligkeit in % aus einem RGB-Farbwert berechnen?!?

[Robert]

Delphi-Quellcode:

function getBrightness(R,G,B:BYTE):BYTE;
begin
  Result:=TRUNC(R*0.3 + G*0.59 + B*0.11);
end;

Wer den einzelnen Farben etwas mehr Farbbalancen zuweisen möchte, dem seien andere Koeffizienten geraten. Ich hab die Werte aus einer c't oder PC Magazin, glaub ich!