Bienvenido a clubdelphi, por favor, no olvides leer nuestra
guía de estilo, gracias.
Has puesto tu pregunta en el foro "Trucos", y no es un truco, por lo que la paso a varios.
Recuerda, para otras ocasiones que pongas código, usa las etiquetas apropiadas, ejemplo:
