Supongo que me contestas a mi. Si es asi, hazlo en el mismo hilo que se inicio la primera pregunta por favor, sino nos volveremos todos locos.
Carlos, las funciones y procedimientos que te he mostrado, son creadas por el usuario, es decir no reponden a eventos de ningun componente, por lo tanto las puedes crear y declarar en un TDataModule, un TForm o en una Unit independiente,es decir puedes usarlas donde quieras.
¿Una manera mas facil? No entiendo lo que quieres decir.De todas formas lo puedes reducir todo a un procedimiento pero te puse dos o tres para que vieras otras formas.
Suerte