ProgressBar na StatusBar

Awe Pessoal esse post é sobre delphi como colocar um ProgressBar em uma StatusBar é muito simples porém requer alguma atenção para seus códigos certo vamos a prática 1 -> coloque uma StatusBar no form e ajuste a propriedade do painel: Style = psOwnerDraw 2 -> Coloque um ProgressBar no Form e ajuste a propriedade: