"out" or "access"

["=:-) Vincent" <vb@bruker.fr>]

What's the best way ?

package B is
    ...
    The_Procedure ( The_Parameter: out Integer );
    -- or The_Procedure ( The_Parameter: access Integer );
    ...
end B;
...
package body A is
    ...
    g_Toto: Integer; -- or aliased Integer
    ...
    procedure The_Other_Procedure is
    begin
        ...
        B.The_Procedure ( g_Toto );
        -- or  B.The_Procedure( g_Toto'Access );
        ...
    end;
    ...
end A;

Thanks.