VCL TMenuItem Caption nicht sichtbar

[DerMondistunsereSonne]

Moin,

Ich füge in einem DBRichEdit dynamisch ein Menüband ein. Leider bleiben ab einer gewissen Tiefe die Captions auf der Strecke:

Delphi-Quellcode:

Platzhalter1 := AddMenuItem(Form.Menu, '&Mein toller Menüpunkt', nil);
xItem:= AddMenuItem(Platzhalter1, 'Spitze', nil);
tItem:= AddMenuItem(xItem, 'Oder doch nicht', nil);
AddMenuItem(tItem, 'Wer weiss', nil);

Und

Delphi-Quellcode:

function AddMenuItem(Owner: TComponent; ACaption: string; MyEvent: TNotifyEvent): TMenuItem;
   var
      menuItem: TMenuItem;
   begin
      menuItem := TMenuItem.Create(Owner);
      menuItem.caption := ACaption;
      menuItem.OnClick := MyEvent;
      Result := menuItem;

      if Owner is TMenu then
         (Owner as TMenu).Items.Add(menuItem)
      else
         (Owner as TMenuItem).Add(menuItem)
   end;

Nach Spitze sind die Items vorhanden und auswählbar, aber leider ohne Beschriftung. Kann mir jemand weiterhelfen?