1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

var
  ColTab2 : Array [0..255] of Cardinal;

Procedure MakeTab; //Farbtabelle erzeugen
var  i : Integer;  r,g,b : Byte; 
BEGIN
 for i:= 0 to 255 do
 Begin
   r:= 0+i;
   if i<128 then g:=i * 2 else g:=g - 2;
   b:=255-i;
   ColTab2[i]:= RGB(r,g,b);
 End;
END;

Anwendungsbeispiel:
for i:= 0 to 255  do
BEGIN
  Panel1.color:= ColTab2[i];
  Label1.caption:= IntToStr(i)+' = '+ IntToStr(ColTab2[i]);
  Application.processmessages; Sleep(100);
END;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

void convertHSV2RGB(float h, float s, float v, int &r, int &g, int &b){
  if (h == 360.0)
    h=0.0;
  float f = h / 60;
  float i = (float) floor((double)f);
  int p1 = (int) (v * (1.0 - s) * 255);
  int p2 = (int) (v * (1.0 - f * s) * 255);
    int p3 = (int) (v * (1.0 - (1.0 - f) * s) * 255);
  switch( (int)i)
  {
    case 0: { 
          r = v;
          g = p3;
          b = p1;
        }break;
    case 1: {
          r = p2;
          g = v;
          b = p1;
        }break;
    case 2: {
          r = p1;
          g = v;
          b =p3; 
        }break;
    case 3: {
          r = p1;
          g = p2;
          b = v; 
        }break;
    case 4: {
          r= p3;
          g= p1;
          b =v;
        }break;
    case 5: {
          r=v;
          g=p1;
          b=p2;
        }break;
  }
}					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

void hsv2rgb(float h, float s, float v, float &r, float &g, float &b)
{
  // See: http://en.wikipedia.org/wiki/HSV_color_space
  h = max(0.0f, min(1.0f,h));
  s = max(0.0f, min(1.0f,s));
  v = max(0.0f, min(1.0f,v));

  int Hi = ((int)floor(h *6)) % 6;
  float  f  = (h*6) - Hi;
  float  p  = v*(1-s);
  float  q  = v*(1-f*s);
  float  t  = v*(1-(1-f)*s);

  switch (Hi)
  {
    case 0: r=v; g=t;b=p; break;
    case 1: r=q; g=v;b=p; break;
    case 2: r=p; g=v;b=t; break;
    case 3: r=p; g=q;b=v; break;
    case 4: r=t; g=p;b=v; break;
    case 5: r=v; g=p;b=q; break;
  }
}