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