[eXplorer]

незнаю у меня на семёрке всё работает...
попробуйте так... ))))

Код:

uses ...,CommCtrl;

begin
Progressbar1.Brush.Color := clTeal;
SendMessage( ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clYellow );
end;