Caption en botones de un TToolbar

[*Caro*]

Hola, acabo de hacer la prueba y mas o menos quedaría así:

Código Delphi [-]
procedure TForm1.ToolBar1AdvancedCustomDrawButton(Sender: TToolBar;
  Button: TToolButton; State: TCustomDrawState; Stage: TCustomDrawStage;
  var Flags: TTBCustomDrawFlags; var DefaultDraw: Boolean);
var
  Texto : String;
  Rect : TRect;
begin
 Texto := Button.Caption;
 Rect := Button.BoundsRect;
 DrawText(Sender.Canvas.Handle, PChar(Texto),
          StrLen(PChar(Texto)), Rect, DT_WORDBREAK);
end;

Saluditos