سلام
موقعی که میخوام از مقدار برگشتی تابع استفاده کنم با خطای زیر مواجه میشم ؟


در ضمن این پروسیجری که نوشتم توی QUERY Analyzer به درستی کار میکنه و خروجی میده ولی توی دلفی نه .
این پروسیجر sql
CREATE PROCEDURE USER_SELECT

@username as nvarchar(10),

@password as nvarchar(10)

 AS

if ((select count(*) from tuser where username=@username and password1=@password)>0)

begin

    select * from tuser where username=@username and password1=@password

    return 1

end

else

begin

    return 0

end

GO


و این هم کد دلفی

procedure TFRMlogin.Button1Click(Sender: TObject);

var

  ret:Variant;

begin

ret:=0;



if TXTuser.text='' then

begin

  ShowMessage('áØÝÇ äÇã ˜ÇÑÈÑí ÑÇ æÇÑÏ äãÇííÏ');

  txtuser.SetFocus;

end;

if TXtpasswords.text='' then

begin

  ShowMessage('áØÝÇ ÑãÒ ÚÈæÑ ÑÇ æÇÑÏ äãÇííÏ');

  TXtpasswords.SetFocus;

end;

if (txtuser.text<>'') and (TXtpasswords.text<>'') then

begin

  SPlogin.Close;

  SPlogin.Parameters.ParamValues['@username']:=txtuser.Text;

  splogin.Parameters.ParamValues['@password']:=TXtpasswords.Text;

  splogin.Open;



  ret:=(splogin.Parameters.ParamValues['@RETURN_VALUE']);



  if ret=0 then

    ShowMessage('äÇã ˜ÇÑÈÑí íÇ ÑãÒ æÑæÏ ÇÔÊÈÇå ÇÓÊ')

  else

  begin

    FRMMAIN.Show;

    FRMlogin.Hide;

  end;

end;