Hola,
Hay
una función en SwissDelphiCenter que puede venirte de perilla. Yo recuerdo que el compañero Román propuso una solución para este tema, y me pareció estupenda, pero, no he conseguido localizar el Hilo en cuestión. Lo mismo Román lee esto, se acuerda, y lo comenta.
En todo caso la función que enlazo arriba parece cumplir perfectamente.