Hola Josi.
Antes de nada agradecerte el aporte y que compartas con los demás compańeros del foro tu código.
De paso comentaremos, para que a los demás les sea fácil encontrarlo, que el ejemplo está aquí (te lo he movido desde la carpeta herramientas):
http://www.terawiki.clubdelphi.com/D...in32/Ejemplos/
Gracias.
Un saludo.