procedure TForm1.Button1Click(Sender: TObject);
const
PBM_SETBARCOLOR = $0409;
YourColor = clgreen;
begin
SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, YourColor);
end;