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