ProgressBar Farbe lässt sich nicht ändern

[BullsEye]

Delphi-Quellcode:

uses uxTheme, commctrl;

procedure TfrmEinstellungen.btnFarbeClick(Sender: TObject);
begin
  if uxTheme.IsThemeActive then
    uxTheme.SetWindowTheme(frmMain.pbLeft.Handle, '', '');
    uxTheme.SetWindowTheme(frmMain.pbRight.Handle, '', '');
  frmMain.pbLeft.Brush.color := clTeal;
  SendMessage(frmMain.pbLeft.Handle, PBM_SETBARCOLOR, 0, clblue);
  frmMain.pbRight.Brush.color := clTeal;
  SendMessage(frmMain.pbRight.Handle, PBM_SETBARCOLOR, 0, clblue);
end;

So gehts!!
Danke dir bitsetter!!!