Réponse acceptée !
Salut,
Voici deux exemples qui devrait te rappeler quelques souvenirs


Type
  TForm1 = Class(TForm)
    Procedure Button1Click(Sender: TObject);
  Private
    { Déclarations privées }
  Public
    { Déclarations publiques }
    Procedure MaProcedure;  // Exemple 1
  End;

Var
  Form1             : TForm1;

    Procedure MonAutreProcedure;  // Exemple 2


Implementation

{$R *.dfm}

Procedure TForm1.Button1Click(Sender: TObject);
Begin
    MaProcedure; // appel de MaProcedure
    MonAutreProcedure; // appel de MonAutreProcedure
End;

// Implementation de MaProcedure
Procedure TForm1.MaProcedure;
Begin
   // ici ton code
End;

// Implementation de MonAutreProcedure
Procedure MonAutreProcedure;
Begin
   // ici ton code
End;

---

 n'oubliez pas de cliquer sur Réponse Acceptée si elle vous convient

---

@+
Cirec