Hola Rabata.
Me alegra que tu codigo haya funcionado, y que hayas decidido compartirlo con nosotros. Solo quiero recomendarte el uso de las etiquetas [ code ] o [ delphi ] para encerrar trozos de código sin perder la indentación, o incluso, resaltando la sintaxis (en el caso de la segunda etiqueta).
Si queres aprender como usarlas, seguí el link en mi firma. Podrias editar tu mensaje para hacer la prueba
Hasta luego.