Lancer une procédure au démarrage avec affichage de la form pendant son exécution

Bonjour
J'ai une procédure qui se lance dans

Code:

---

procedure TForm1.FormShow(Sender: TObject);

---

, la procédure s'exécute mais ma form ne s'affiche qu'à la fin de l'exécution de ma procédure.
Comment forcer l'affichage de la form pendant l'exécution de la procédure?

Salut

Il faut que tu utilises l'événement OnActivate de ta form pour lancer ta procédure

A+

Jérôme

Merci
ça fonctionne