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;

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

Край на изскачащото меню без стил (Собствен)

Край на изскачащото меню със стил

Когато щракнете върху стрелката, поставете в менюто:

Изображение на цял екран:

Редактиране:

- Delphi XE3

-Добавено изображение на менюто на цял екран.