ListView interesante

[Esau]

Hola Foristas, les cuento estoy haciendo una aplicación interesante en la cual tengo un ListView con datos de todo tipo, el ListView tiene en su propiedad ViewStyle = vsReport. Para que aparezca como un grid. Tengo varias columnas, cada columna de un tipo: enteros , textos y fechas.
Cuando el usuario desea que los datos se muestren en forma ascendente ordenado por una columna solo hace clic en el titulo de la columna, si desea que este ordenado pero de forma descendente vuelve ha hacer clic en la columna y se ordena de forma descendente. Hasta este punto todo funciona bien, pero me gustaría que al momento que los datos se encuentren de forma ascendente o descendente se dibuje en el titulo una flechita según sea el caso o algo muy parecido al explorador de Windows,
En el Explorador si Uds. hacen Clic al nombre se ordena y se dibuja en el titulo una flecha que nos indica en que orden se encuentra ordenado, si vuelven ha hacer clic en la misma columna el orden se invierte y también la flecha o indicador.

En Delphi existe alguna forma de hacer lo mismo en un ListView?

Saludos y Gracias