ProgressBar1.Brush.Color:= clRed; // Set Background colour SendMessage (ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clBlue); // Set bar colour