Hola pelaorb68, bienvenido(a) al ClubDelphi.
He editado tu mensaje para añadir la etiqueta [delphi]. Su uso es obligatorio aqui para publicar fragmentos de código, y estarás de acuerdo conmigo que la presentación del mismo ahora es mucho mas legible que en la versión original del mensaje.
Te invito a leer la guia de estilo y la ayuda sobre el uso de estas etiquetas (vínculos en mi firma).
Hasta luego.