How can I set the bar color of a TProgressbar?

Problem/Question/Abstract:

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

Answer:

procedure SetBarColor(Component: TProgressBar; Color: TColor);
begin
  SendMessage(Component.Handle, 1033, 0, Color);
end;