Farbpaltte erstellen mit 255 farben

[mimi]

Hallo,
ich habe schon die suche bentutz aber leider nichts passendes zu meinem problem gefunden.

Ich möchte auf ein panel 255 farben dastellen und zwar so:
die hellen farbtöne sollen oben sein und die dunkeln unten.

Ich habe die TShape genommen und auch schon einiges versucht mein erster gedanke war:

Delphi-Quellcode:

  for i:=0 to 255 do begin
    Shape:=TShape.Create(self);
    Shape.Left:=(18)*i;
    Shape.top:=25;
    Shape.Width:=16;
    Shape.Height:=16;
    Shape.Brush.Color:=i;
    Shape.Parent:=ScrollBox2;
  end;

aber leider sehe ich so nur die schwartz und rot töne aber die andren nicht.
dann wollte ich es mit RGB(mit der Funktion) das ging dann auch nicht:

Delphi-Quellcode:

 end;
      for i:=0 to 255 do begin
        Shape:=TShape.Create(self);
        Shape.Left:=(18)*i;
        Shape.top:=25;
        Shape.Width:=16;
        Shape.Height:=16;
        if 255-i < 45 then break;
        Shape.Brush.Color:=RGB(0,i,255-i);
        Shape.Parent:=ScrollBox2;
      end;

so sehe ich leider auch nicht alle töne....

ich hoffe einer kann mir ein kleinen tip geben wir ich mein problem lösen kann.
(aufjedenfall währe ich dankbar *G*)

!!! Vielen Danke im Vorraus !!!