Pues como no digas cual es el problema, o por qué diantres no te sirvió... no creo que haya nadie que pueda ayudarte.
El código publicado por albertron, a mi me parece mas que correcto. Sin probarlo, claro.
Por si las dudas, date una vuelta por el hilo de la
calidad de las preguntas.
Hasta luego.
![Wink](http://www.clubdelphi.com/foros/images/smilies/wink.gif)