[Lazarus] Bug à la fermeture

Bonjour, j'ai un problème quand je clique sur les boutons automatiques Fermer (tbitbtn) d'un programme avec plusieurs fenetres: celui de la premiere fenetre fonctionne, mais ceux des suivantes non. Comment les faire fonctionner?? merci

Ok, ben excusez moi si j'ai pas été clair.
Voila j'ai un petit programme avec trois fenetre qui apparraissent successivement.
Si on clic sur un cetrain boutton de la premiere, elle disparait et la deuxième apparait. De meme pour passer de la deuxième à la troisième.
Pour cela j'utilise hide et show.

Sur chaqu'une de ces fenetres, j'ai placé un autre bouton( cette fois c'est un TBitBtn) et dans kind j'ai mis bkclose.
Ce bouton marche très bien sur la première fenetre mais sur les suivants, il fait disparraitre les fenetres mais pour fermer completement l'executable, je dois aller dans le gestionnair des taches et terminer le procéssus.

Il faut fermer la form principale...

Voici la portion de code necessaire dans un projet à deux fenêtres :

Code:

---

1 2 3 4 5 6 7 8 9

implementation uses unit1; // faire reference à l'unit de la form principale   { TForm2 }   procedure TForm2.BitBtn1Click(Sender: TObject); begin form1.Close; // Fermer la form principale, donc l'application end;

---