[Alexander]

Si estaba pensando en hacerlo así.

Ya había implementado la que enviaste en el primer mensaje.

Pero me gusta más que sea una funciona de Delphi.

Ya funciona. Muchas gracias por la ayuda.

Alexander