Mudar a cor do progressbar

//Adicionar CommCtrl no uses.

SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, rgb(155,100,255));