DUnitでのTProgressBarの挙動

DUnitでTProgressBar::SmoothReverseをtrueにして、MarqueeIntervalを設定しても動かない。

TStatusBarのデザインがレトロな感じ。

もしかすると、BCB6のプロジェクトからコピーしてきたユニットだったのが原因かも。