Par exemple, vous pouvez essayer de glisser
un TProgressBar dans unTStatusBar...
Ben vi mais non ca marche pas!

Alors le plus simple (oui parceque l'on pourrait dérivé
un nouveau composant TStatusBar..) c'est de coder
dans l'evenement OnCreate ceci :
 
StatusBar1.ControlStyle := StatusBar1.ControlStyle + [csAcceptsControls]; 
ProgressBar1.Parent := StatusBar1; 
ProgressBar1.SetBounds(0, 2, 150, 16); 
ProgressBar1.BringToFront; 


Et voila!