Delphi - mostrar barra de progreso en grilla o similar

Hola

Estoy desarrollando una aplicación en la que me gustaría mostrar una barra de progreso en una celda de un stringgrid o en un item de un listview, para hacerla más atractiva visualmente. Imagino que ya hay componentes con estas funcionalidades, pero me gustaría poder hacerlo yo mismo (con un poco de ayuda, claro está ;-)).

Gracias de antemano.

No es tan facil pero se puede hacer si tienes la paciencia de aprender, te recomiendo esta pagina http://delphi.about.com/b/a/027886.htm