Delphi, Alterar Cor do Progressbar e do Fundo

O código abaixo é para mudar a cor do PROGRESSBAR no DELPHI.
Obs: O XPManifest deve estar desativado.


Declare:
uses CommCtrl
O Código:
//Altera a cor do fundo
ProgressBar1.Brush.Color := clYellow;
//Altera a cor da barra
SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clBlue);

http://informaticode.blogspot.com.br/search/label/Delphi