Farbe des Progressbars ändern

SendMessage(ProgressBar1->Handle, PBM_SETBARCOLOR, 0, clRed);