[dec]

Código Delphi [-]
PostMessage(ProgressBar1.Handle, $0409, 0, clRed);