procedure Essai14 is

    use  Calendar, Ada.Text_IO, P_Tsk_BAO, Ada.Task_Identification;
    use  P_Serveur;

    TskAffiche : T_TskAffiche;
    TempsDebut : Time;
 
    task type T_TskClient;
 
    task body T_TskClient is
 
        Serveur_ID : Task_ID;
 
    begin -- T_TskClient
 
        delay 1.0;
        TskAffiche.JAffiche (Estampiller (TempsDebut) &
                             "Tache " & S_Identifier &
                             " va appeler l'objet");
        TskServeur.Service (Serveur_ID);
        TskAffiche.JAffiche (Estampiller (TempsDebut) &
                             "Tache " & S_Identifier &
                             " a ete servie par " &
                             Image (Serveur_ID));

    end T_TskClient;
 
begin -- Essai14

    TempsDebut := Clock;
    declare
        TskClient1, TskClient2 : T_TskClient;
    begin
        null;
    end;
 
end Essai14;