Poner un icono en un TListView según el tipo de archivo

[[Gunman]]

Hola forofos de Delphi!
Estoy desarrollando un cliente FTP y tengo un problemilla, por decirlo así en el procedimiento donde me lista el directorio. Vereís:
Cuando me lista un directorio a mi me gustaria que apareciese un icono al lado del nombre de archivo o carpeta (lógico, para acerlo más atractivo), de momento, mi código recore el nombre de la linia y segun el tipo de extensión que tiene el archivo coloca un icono diferente que se encuentra en un ImageList. Ahora surge el problema: cuantos tipos de archivos hay en el mundo? Tropocientosmil, infinitos. Habia pensado en la posibilidad de que el usuario pudiese añadir tipos de archivos y definir sus iconos, pero esto es muy modesto. Después de esta introducción explicando el problema, viene mi pregunta:
Cómo (diablos) le asigno al Item del TListView el icono predefinido de Windows para ese tipo de archivo?
He buscado alguna función de las APIs, pero no he encontrado nada (no quiero decir que no esté, sólo que no la he encontrado).
Muchas gracias... Vaya... el post se ha hecho largo!
Gracias de nuevo y espero impaciente vuestra respuesta.