Question sur les tasks

Bonjour à toutes et tous,
Je ne connais rien aux tâches Ada.
Vite fait, afin de baisser le timeout de DB MySQL (par défaut à 8 heures, que je baisserai bien à 1h30 pour réduire les ressources des connexions laissées ouvertes pour rien), je 'codouille' ceci dans le main de l'app. utilisateur... Msg.Std ou Sql.Ping ne sont pas réentrants mais comme c'est de l'affichage de log ou de la pure lecture de DB, je ne m'en fait pas pour l'instant...
L'appel à C balaye la table des DB ouvertes et envoie un "SELECT 1" bidon à toutes les DB qui le nécessitent (donc pas les SQLite par exemple).
Mais au démarrage de l'applic, pour que la line B affiche le message de log :
TestGui.SQL_Ping > Armed for 3600s cycles
Il faut que je mette une ligne A avec un appel à delay...
J'aimerai bien comprendre le truc (et baisser mon ignorance).
---------------------------------------
    task SQL_Ping;
    task body SQL_Ping is
       Delay_Value : Duration := 3600.0;  -- Wait 1 hour between pings
    begin
A      delay 0.1; --  Mandatory to displaying the message below
B      Msg.Std ("TestGui.SQL_Ping > Armed for " &
                Trim_Left (Field_By_Index (From_Latin_1 (Duration'Image (Delay_Value)), 1, ".")) & "s cycles");
       while True loop
          delay Delay_Value;
          Msg.Dbg ("TestGui.SQL_Ping > Sent");
C        Sql.Ping;
       end loop;
    end SQL_Ping;
---------------------------------------
Merci d'avance (et généralement merci à la communauté, vous me faites bien progresser :).
--
Stéphane Rivière
Ile d'Oléron - France