[Bluefox]

Así lo tenia, pero me gustaría encontrar una solución un poco mas bonita.

Es mas pretendía hacer la solución usando las funciones standard de delphi, pero no veo la posibilidad de una forma bonita...

Mil gracias de nuevo!