[[coso]]

Hola, puedes modificar la funcion usando las TPersistentClass (link). No se bien bien como se haria, pero me da que puede hacerse. Por otra banda, no le encuentro mucho la utilidad , esto es, con el typecast al tobject te iria de perlas...