[radicalkey]

Gracias, esto que me has dicho funciona.
Otra pregunta es, si yo quiero tener este mismo procedimiento en una unit distinta como lo hago?

gracias otra vez