Si te funciona con el evento OnActivate, no tienes más que poner una variable que haga de semáforo, para que solamente se ejecute una vez la función que recorre los objetos.
También puedes utilizar la propiedad Tag del formulario e incrementarla en 1 cada vez que se active de tal forma que la función se ejecutaría por ejemplo siempre que MiForm.Tag < 2.
Un Saludo.
|