El código publicado es imposible de leer!!.
Por favor, editá tu mensaje y usá la etiqueta [ delphi ] para este
trozo de código. Si no sabes cómo usarla, podes leer el
anuncio de las nuevas etiquetas disponibles de hace poco mas de un año!!
Hasta luego.