Sortir d'une Form en mode ShowModal

Bonjour
Je dois modifier une source et je butte sur un problème. Une fenêtre est activée avec la fonction Form.ShowModal, un traitement y est donc lancé et l'on doit cliquer sur un bouton pour sortir et revenir à la fenêtre principal.  Ici tout fonctionne correctement.
Je souhaite obtenir une seconde alternative de sortie en créant une temporisation. Une fois le traitement réalisé, au bout d'une période de x seconde, je voudrais fermer automatiquement la fenêtre modale et revenir sur la fiche principal sans avoir à cliquer sur un bouton et sans intervention de l'utilisateur.
J'ai essayé de passer par une fenêtre non Modale mais le source est trop complexe et je souhaite une solution plus simple comme une simulation d'un clic sur le bouton ou autre
Avec mes remerciements pour une éventuelle suggestion.
Micfor

T'as essaye avec "close" ? Tu le places juste apres ta tempo

salut
Je crois que la reponse de yannba est suffisante.
Rien à ajouter, je veux juste le confirmer.

Cela ne fonctionne pas. L'instruction Close  fonctionne uniquement lorsqu'elle est placée  dans un bouton.

Salut,
Form.Button1.Click

où Form est le nom de la form Modal
Button1 le nom du bouton qui ferme cette form
et click pour simuler un clique dessus

@+
Cirec

re,
où alors Form.close;
où Form est le nom de la form Modal

@+
Cirec

Merci à vous mais je bataille encore. Comme je l'ai dis plus haut, avec un bouton et l'instruction close --> aucun problème mais je voudrais fermer cette Form sans passer par un bouton, je veux placer une tempo et sortir de la form à la fin de cette tempo.

dans ce cas tu mets un Timer dans la Form Modal que tu active au moment ou elle devient visible (évenement OnShow de la Form) et dans l'évenement OnTimer tu met Close

plus clairement
après avoir mis le Timer sur la Form tu cliques dessus et dans l'inspecteur d'objet tu mets Enable à False et interval à 10000 pour 10 secondes par Ex. En suite dans l'onglet évenements de l'inspecteur d'objet tu double cliques sur OnTimer et la dans le code généré tu écris :
Timer1.Enabled := False;
Close;

en suite tu cliques sur la form et dans l'inspecteur d'object onglet évenements tu double cliques sur OnShow et dans le code généré tu écris :
Timer1.Enabled := True;

@+
Cirec

n'oublie pas de cliquer sur réponce acceptée stp Merci


@+
Cirec