Muchas Gracias Microbiano por tu respuesta pero el código que me recomendaste me da el siguiente error cuando intento correr el programa:
-
Código Delphi
[-]--------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EListError with message 'List index out of bounds (1)'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------