Hola y bienvenido (puesto que es tu primer mensaje);
Si deseas que tu código se lea mejor utiliza TAG's (/en éste caso ya te los pongo yo):
http://www.clubdelphi.com/foros/showthread.php?t=9992
Te recomiento también que leas la guía de estilo:
http://www.clubdelphi.com/foros/guiaestilo.php
En especial éste punto:
http://www.clubdelphi.com/foros/guiaestilo.php
Yo no le veo ningun problema a priori.
¿Has probado a ejecutarlo paso a paso?
¿En qué línea da el error?