存储过程的问题!存储过程已经检测正确,在其他语言工具中调用正常,但是不知道在Delphi中怎么有问题

[flyppl]

谢谢先
我的是SQL SERVER数据库,过程名字为login,程序如下:
CREATE PROCEDURE [login]
@name char(10),
@cpassw char(10)output
AS
select Worker_PW into@cpassw from LogIn_ok
where worker_name=@name
GO
================================================以上没有问题.
我在delphi中,使用的是ADOstoredproc控件,name为adosp1,procdurename为login,1,
prepare=true; parameters中,我将其自动产生的return_value删除了.已经connection了.
在程序中的编码为

var
findkey : string;
begin
with adosp1 do
begin
prepared:=false;
parameters.Clear ;
parameters.Refresh ;
parameters.ParamByName('@name').Value :=edit1.Text ;
parameters.ParamByName('@cpassw').Value:=0 ;------我想去掉,因为是返回值, 但运行时说要给她付值!我不知道就加了.
prepared:=true;
execproc;
end ;
findkey:=adosp1.Parameters.Parambyname('@cpassw').Value ;--将返回值付给findkey变量.
showmessage(findkey);-----查看发现返回值竟然是'0'.
if edit2.Text=findkey then showmessage('成功')
else
showmessage('失败');
end;
请问,我怎么得到我的数据库中的密码的返回值啊!!!