implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin Timer1.Interval := 5000;//Ici, 5 sec d'attente. Timer2.Interval := 1000; Timer2.Enabled := false; end; procedure TForm1.Timer1Timer(Sender: TObject); begin Timer2.Enabled := true; ShowMessage('salut'); end; procedure TForm1.Timer2Timer(Sender: TObject); begin Timer1.Enabled := false; end; END.