d7＋8i,ora-06550错误第1行第7列

程序调用一个存储过程是出现错误，存储过程如下（已成功通过编译）：--返回指定日期的日程，输入参数是希望查看的日期，输出参数是当天所有日程
 procedure  getschedulebydate(in_date in date,rdata out pa_rcgl.mycursor) as
  begin
    open rdata for
     select * from scott.task
     where begintime=in_date
     order by task_id;
  end;调用代码如下：procedure Tfrmmain.cmdfindClick(Sender: TObject);
  var finddate:string;
begin
    if dmd.cds.Active then
       dmd.cds.Close ;
    finddate:=datetostr(dtpfind.Date );
    dmd.sspbydate.Params.ParamByName('in_date').Value :=strtodate(finddate);
    try
      dmd.sspbydate.Open ;
    except
      showmessage('err');
    end;    dmd.dsp.DataSet:=dmd.sspbydate ;
    dmd.cds.Open ;
    dmd.cds.Refresh ;
end;错误报告说参数类型或数量错误，数量肯定是没错的，那就是类型了，可类型都是date啊，怎么会错呢