ScrollBar + RBG

procedure TForm1.ScrollBar1Change(Sender: TObject);
var
  p, i, j, k, j1, k1: integer;
begin
  p := ScrollBar1.Position;
  k1 := p div 256;
 
  i := p div 65536;
  k := p - k1 * 256;
  Form1.Color := RGB(i, j, k);
end;

  case strtoint(edit4.text) of
  0..256:begin
           Edit1.Text:='0';
           Edit2.Text:='0';
           Edit3.Text:=Edit4.Text;
         end;
  257..65536:begin
           Edit1.Text:='0';
           Edit2.Text:=inttostr( StrToInt(Edit4.Text) div 256 );
           Edit3.Text:=inttostr( StrToInt(Edit4.Text) - StrToInt(Edit2.Text) - 255 );
         end;
  65537..16777216:begin
           Edit1.Text:=inttostr( StrToInt(Edit4.Text) div 256 );
// а дальше сам
         end;

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
  Color:=ScrollBar1.Position;
  Caption:=Format('R=%d G=%d B=%d',[GetRValue(Color), GetGValue(Color), GetBValue(Color)]);
end;

for i := 0 to 255 do
  for j := 0 to 255 do
    for k := 0 to 255 do
      Form1.Color := RGB(i, j, k);

var
  c: TColor;
...
  for c:=0 to $ffffff do Form.Color:=c;

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
  Color:=ScrollBar1.Position;
end;

procedure TForm3.ScrollBarsChange(Sender: TObject);
begin
  Label1.Caption:= IntToStr(RedBar.Position);
  Label2.Caption:= IntToStr(GreenBar.Position);
  Label3.Caption:= IntToStr(BlueBar.Position);
  Color:= RGB(RedBar.Position,GreenBar.Position,BlueBar.Position);
end;