The TProgressBar Delphi component displays a simple progress bar. Progress bars provide users with visual feedback about the progress of a procedure within an application.
By design, the colors of a progress bar are determined by Windows. Here's how to change the background color and the bar color of a TProgressBar component, at run-time (download sample application):
uses CommCtrl, ... ... // Set Background color ProgressBar1.Brush.Color := clRed; // Set Bar color SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clBlue) ;