Author: David Johannes Rieger

This code will show you, how you can set the bar color of a TProgressbar.

Answer:
1   
2   procedure SetBarColor(Component: TProgressBar; Color: TColor);
3   begin
4     SendMessage(Component.Handle, 1033, 0, Color);
5   end;