Descobrir código de TColor

Construa esse form

Edite o 'Events' OnChange em cada Scrollbar

O mesmo código (em azul) serve para os três 'events' acima

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
  edit1.text:= 'RGB(' +
  RightStr('00'+inttostr(ScrollBar1.Position),3)+','+
  RightStr('00'+inttostr(ScrollBar2.Position),3)+','+
  RightStr('00'+inttostr(ScrollBar3.Position),3)+')';
  Panel1.Color:=RGB(ScrollBar1.Position,ScrollBar2.Position,ScrollBar3.Position);
  label1.Caption:=RightStr('00'+inttostr(ScrollBar1.Position),3);
  label2.Caption:=RightStr('00'+inttostr(ScrollBar2.Position),3);
  label3.Caption:=RightStr('00'+inttostr(ScrollBar3.Position),3);
end;