★★★★★Oracle+Delphi(存储过程的问题)★★★★★

存储过程:
create or replace procedure lsp_PacsGetPatInfo(PatType varchar2,CardNo varchar2,name out varchar,sex out varchar,birthday out date,cureno out number,dept out varchar,bedno out varchar) is
begin
  IF LTRIM(RTRIM(PatType)) = '1' then
     SELECT A.BRXM,A.BRXB,A.CSNY,A.ZYH,to_char(A.BRKS),A.BRCH
   into name,sex,birthday,cureno,dept,bedno
       FROM ZY_BRRY A WHERE A.ZYHM = LTRIM(RTRIM(CardNo));
  else
     SELECT A.BRXM,A.BRXB,A.CSNY,A.BRID
 into name,sex,birthday,CureNo
   FROM MS_BRDA A WHERE A.MZHM = LTRIM(RTRIM(CardNo));
  end if;
end lsp_PacsGetPatInfo;
Delphi代码:
try
      MySP.Close;
      MySP.Parameters.ParamByName('PatType').Value:='0';
      MySP.Parameters.ParamByName('CardNo').Value:=Trim(EDCLINIC_NO.Text);
      MySP.ExecProc;
      except on E: exception do
                  Exit;
      end;
      Str:=MySP.Parameters.ParamByName('name').Value+'@'+
          MySP.Parameters.ParamByName('sex').Value+'@'+
          MySP.Parameters.ParamByName('birthday').Value;
///////////////////////////////////////////
报错:
[microsoft][odbc driver for Oracle][oracle]ora-06550:line 1 ,column7:
pls-00306:wrong number or types of arguments in call to 'LSP_PACSGETPATINFO' ORA-06550:line 1,column 7:
PL/SQL: Statement ignored