delphi如何调用带out参数的oracle存储过程?期待高手....

p1:string;
p2:number;
with ADOQuery2 do
begin
close;
SQL.Clear;
parameters.Clear;
SQL.Add('select get_mul(:enter_name,:psw,:lim) from lzj.n82_user');
Parameters.ParamByName('enter_name').Value:=username.Text;
Parameters.ParamByName('psw').Value:=P1;
Parameters.ParamByName('lim').Value:=P2;
open;
p1:=Parameters.ParamByName('psw').Value;
p2:=Parameters.ParamByName('lim').Value;
end;
end;

按照以上代码试一试吧，现在没有环境试不了。
如果还不行就换控件吧，用ADOProcedure

很想知道。。预留

MySQL教程4 MySQL8运算符、函数、存储过程及新增数据类型 17.之创建带有IN和OUT参数的存储过程 学习猿地