Habe ProgressBar aus ComControls, brauche andere...

[Wite]

Delphi-Quellcode:

uses 
  CommCtrl; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  // Set the Background color to teal 
  Progressbar1.Brush.Color := clTeal; 
  // Set bar color to yellow 
  SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clYellow); 
end;

hat mich auch gehilft 8)

Quelle: SwissDelphiCenter.ch