VCLStyle неправильно рисует большое всплывающее меню

Проблема с отрисовкой в ​​большом всплывающем меню. Стрелка в конце меню не показывалась и некоторые проблемы с отрисовкой

Как решить эту проблему?

пункты меню, созданные с помощью примера кода:

 procedure TForm1.Button1Click(Sender: TObject);
 var
   mi:TMenuItem;
   I: Integer;
 begin
   for I := 0 to 100 do
   begin
     mi:=TMenuItem.Create(PopupMenu1);
     mi.Caption:='Item '+IntToStr(I);
     PopupMenu1.Items.Add(mi);
   end;
end;

Примеры изображений:

Конец всплывающего меню без стиля (собственный)

Конец всплывающего меню со стилем

При щелчке по стрелке в меню:

Полноэкранное изображение:

Изменить :

-Дельфи ХЕ3

-Добавлено изображение полноэкранного меню.