Hola Sara.
He editado tu mensaje para encerrar el código en la etiqueta [ delphi ], que como podes ver, tiene un efecto grandioso sobre el código que, originalmente, resultaba imposible de leer (debido a la falta de indentación).
Podes leer en el mensaje inicial de este foro cómo se usa dicha etiqueta, o pinchar en el botón de editar tu mensaje anterior.
En este caso, además de la etiqueta, he ajustado el código de manera que no tenga líneas largas que provoquen la necesidad de desplazarse horizontalmente.
Es importante que en el futuro, cuando publiques trozos de código, uses esta etiqueta.
Hasta luego.