Нет, в семерке это не должно работать, это для классической схемы. Но вот такой код несколько меняет внешний вид:
Код:
SetWindowLong(ProgressBar1.Handle, GWL_STYLE,
GetWindowLong(ProgressBar1.Handle, GWL_STYLE) Or PBS_MARQUEE);
SendMessage(ProgressBar1.Handle, PBM_SETMARQUEE, 1, 1000);
Попробуйте поиграться с параметрами.