RGB -> XYZ -> LAB Farbraum (Rechenformel und-oder Code)

[sx2008]

Du müsstest wohl noch die RGB-Werte auf 1.0 normieren:

Delphi-Quellcode:

sR,sG,sB : Double;  // 0.0 .. 1.0
begin 
  //Color zu RGB
  sR:= GetRValue(Color) / 255.0;
  sG:= GetGValue(Color) / 255.0;
  sB:= GetBValue(Color) / 255.0;