Hola djhairoflow, bienvenido a
Club Delphi 
Como es costumbre con los iniciados, te invito a que leas nuestra
guía de estilo.
También te sugiero que cuando incluyas código en tus mensajes utilices TAG's como lo explica esta imágen:
Al hacer mas legible tu código, te ayudará a conseguir más respuestas ya que muchos no se tomarán la molestia de leerlo si está confuso.
Saludos y gracias por tu colaboración