Mudando cor do Progresbar

const 
  PBM_SETBARCOLOR = $0409; 
  YourColor       = clgreen; // coloque a cor aqui
begin 
  SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, YourColor); 
end;