Hola Korrekami!
Lo primero darte las gracias por poner el código.
Como veo que eres nuevo quería comentarte que he modificado tú mensaje, he puesto las etiquetas de delphi para que se vea más claro tú código, te recomiendo que la próxima vez las utilices, se verá mucho más claro.
Nada más que eso y animarte a que sigas participando.
Un saludo!