"multithread"

[Jean-Baptiste CAMPESATO <camje_lemon@nospam.a2lf.org>]

Hello,
I want to create a function wich can called "several times at the same 
time", MultiThread.
I found task and i tested :
In ADS :
        -- Tache pour le traitement du client
        task Traitement is
                entry Go(Client:Socket_Type);
        end Traitement;
-----------------------------------------------
In ADB :
        task body Traitement is
        begin
                accept Go(Client:Socket_Type) do
                        put_line("Tache.");
                        Close_Socket(Client);
                end Go;
        end Traitement;
------------------------------------------------
In the loop wich call Traitement:
                loop
                        -- On accepte le client
                        Accept_Socket (Server, Client, Address);
                        -- Et on crￜￜ un thread pour lui
                        Traitement.Go(Client);
                end loop;


And the first time i call the task it's Ok, but at the second time i've a
"TASKING_ERROR".

Somebody can help me ?

Thanks.