Delphi Taskbar (Progress Status in Windows Tasbar) not working in Administrator Mode

Question

I 'm Working with TTaskbar in my form.

Taskbar Progressbar not showing in Windows taskbar When I run the program as Administrator Mode or Use "Enable Administrator Privileges" at manifest File in Project Options (Application).

Steps to recreate:

1. Create a new VCL forms application, with Delphi 10.1 Berlin
2. In the main form, drop a TTaskbar and a TTimer
3. Set the TTaskbar's ProgressState to Normal
4. Set the TTaskbar's ProgressMaxValue to 30
5. Add event handler for timer, and add this code to it:

.

  procedure TForm1.Timer1Timer(Sender: TObject);
  begin
    Taskbar1.ProgressValue:= Taskbar1.ProgressValue + 1;
    if Taskbar1.ProgressValue >= Taskbar1.ProgressMaxValue then
      Taskbar1.ProgressValue:= 0;
  end;

When run like normal, the taskbar icon shows progress fine.

When run as Administrator, the taskbar icon shows no progress.

Note! The problem does not occur with Delphi XE7.