[ecfisa]

Hola Paula.

Podés hacer:

Código Delphi [-]
...
implementation

var
  GlobalColor: TColor = clBtnFace; // color con que desees que se inicie

procedure TForm1.ToolBar1CustomDrawButton(Sender: TToolBar;
  Button: TToolButton; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if Button.Name = 'ToolButtonColor' then
    with Sender.Canvas do
    begin
      Pen.Style:= psClear;
      Brush.Color:= GlobalColor;
      Rectangle(Button.BoundsRect);
    end;
end;

procedure TForm1.ToolButtonColorClick(Sender: TObject);
begin
  if ColorDialog1.Execute then
  begin
    GlobalColor:= ColorDialog1.Color;
    TToolButton(Sender).Parent.Invalidate;
  end;
end;

Saludos.