Есть ли ProgressButton?

Я хотел бы иметь кнопку, которая выполняет двойную функцию в качестве индикатора выполнения.

+ = ........

Например. кнопка, которая заполняется зеленым фоном по мере выполнения задачи.
Я знаю, что могу создать свой собственный, но если есть что-то готовое, я бы с удовольствием это использовал.

Кто-нибудь знает о бесплатном или коммерческом компоненте, который отвечает всем требованиям?

Я бы предпочел, чтобы он работал в Delphi-2007, но если он доступен только в XE2, это тоже будет нормально.

Обновление
TMS имеет стеклянную кнопку , которая обеспечивает прозрачность. Если вы поместите фигуру (с закругленными углами) темно-зеленым цветом под низом, она будет выглядеть так же, как и эффект, который я хочу.
Просто увеличивайте ширину формы, чтобы соответствовать прогрессу, и вы в деле.

Когда у меня будет время, я сделаю кнопку, которая заполняется цветом, и добавлю ссылку.