Hola,
En el
Grupo Albor tienes
esta "idea" de
Francisco Charte.
Más información sobre la función
aquí y
aquí, por ejemplo.
Por otro lado también podría resultar de tu interés cierto proyecto de código abierto de nombre
DelphiWorks.
Dicho proyecto es una librería/biblioteca para Delphi 4-7. Concretamente en una unidad de nombre "SystemWorks.pas" una función puede proporcionarte ya no la ruta del directorio "Mis documentos", pero, más de una veintena de "directorios de Windows".