may i be more explicit?

["Meresup" <fr_laugier@yahoo.com>]

I can try.
Here's what i'm trying to do :

procedure Test_Timeout is

-- Timeout
function Timeout return Boolean is
begin
    delay 10.0;
    return True;
end Timeout;

-- Simulation of waiting a response from a procedure
function Ar return Boolean is
begin
    for I in 1..10 loop
        Put (I);
        delay 0.2;
    end loop;
    return True;
end Ar;

begin
Put("Test de timeout");
-- What can i do to go out this test as soon as any of these conditions are
true?
if Ar or Timeout then
    Put (" Timeout atteint");
end if;
end Test_Timeout;