Как сделать цветные деления в ProgressBar1
например красные.

const PBM_SETBARCOLOR = WM_USER+9;

SendMessage (ProgressBar1.Handle, PBM_SETBARCOLOR, RGB(<красная составляющая (0-255)>, зелёная, синяя соотв.), 0);

напр. вот те красный цвет: SendMessage (ProgressBar1.Handle, PBM_SETBARCOLOR, RGB(255, 0, 0), 0);

Хотя впрочем вместо функции RGB советую использовать константы - так быстрее: $(две шестнадцатеричные цифры на синий цвет [00=нет синего; FF = макс. синего; 80 = гдето посерединке :) ])(две цифры на зелёный)(две цифры на красный). Штоб преобразовать число от 0 до 255 в 00-FF пользуйся "КАЛькулятором" от MS. Напр мой ник означает салатовый цвет ;)

А, забыл предупредить: если у тебя контролы ХР-шного стиля, то изменить стандартный цвет прогресс-бара штатными методами не удастся. Вывод: используй стандартного вида контролы.

моно просто на канвасе рисовать(через процедуру)
чет типа
procedure drawprogress(precents, x,y:integer);
var
counter:integer;
begin
for counter:=0 to precents do form1.canvas.pixels[x+counter,y]:={а тут цвет мона так RGB(255, 0, 0)
а мона и так $00FF00};
end;