color i progressbar

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;

brush.color sætter baggrundens farve. Det er den del der ændre sig jeg vil skifte farve på.

PBM_SETBARCOLER giver fejl

har du husket at tilføje CommCtrl under uses som stone's eksempel viser?!?... det virker fint for mig

Nej, det var da bare det... tak for jeres hjælp.