Mostrar iconos de archivos en ListBox

[ecfisa]

Hola.

Algo que veo es que usas new para el TIcon pero no usas delete para liberar esa memoria en ningún caso. Supongo que eso lo tengo que hacer al eliminar cada icono de la TImageList ¿Así sería?

Me faltó esa línea al publicarlo pero la gregué pocos minutos después, revísalo nuevamente.

Por otro lado, ¿Tengo que usar el método Clear de los TListBox y los TImageList al cerrar la aplicación o ya se encarga automáticamente de liberar toda esa memoria automáticamente al cerrarse?

Si los componentes fueron agregados al formulario en tiempo de diseño, se liberarán al cerrarse el mismo.

Saludos