Bonjour à tous ,

je cherche à faire un programme qui lors d'un click
  1. me lance une procédure (ConnectClient)
  2. puis attend un certain délai
  3. lance une autre procédure(Send)
  4. lance une autre procédure(DisconnectClient)


Voici la partie du code concerné que j'ai fait :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TFTchat.Envoyerclick(Sender: TObject);
begin
ConnectClient;
Timer1.Enabled:=true;
Timer1Timer(Timer1); 
Timer1.Enabled:=false;
DisconnectClient;
end;
 
procedure TFTchat.Timer1Timer(Sender: TObject);
begin
Send;
end;
Problème ! Il me lance 'send' en boucle (même sans cliquer) !

Je gère pas trop les 'timer' et sa propriété 'enabled'.

Est ce que quelqu'un peut essayer de corriger mon code please