Código Delphi [-] ProgressBar1.Perform(PBM_SETBARCOLOR, 0, ColorToRGB(clFuchsia));
ProgressBar1.Perform(PBM_SETBARCOLOR, 0, ColorToRGB(clFuchsia));