帮我看一下这段代码哪里错了？

Question

提示错误：
parameter对像被不正确定义,提供不一致或不完整信息！
程序：
procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOStoredProc1.Parameters.ParamByName('@V_DEPTNO').Value:=edit1.Text;
  ADOStoredProc1.Parameters.ParamByName('@V_APPMAN').Value:=edit2.Text;
  ADOStoredProc1.Parameters.ParamByName('@V_APPDATE').Value:=DateTimePicker1.Date;
  ADOStoredProc1.Parameters.ParamByName('@V_MEMO').Value:=edit3.Text;
  ADOStoredProc1.Prepared:=true;
  ADOStoredProc1.open;
  edit4.Text:=ADOStoredProc1.Parameters.ParamByName('@v_devreqno').Value;
end;
存储过程：
create or replace procedure xqinfo
  (v_DEVREQNO out cg_devreq.devreqno%type,
   v_DEPTNO   in  cg_devreq.deptno%type,
   v_APPMAN   in  cg_devreq.appman%type,
   v_APPDATE  in  cg_devreq.appdate%type,
   v_MEMO     in  cg_devreq.memo%type) is
begin
   insert into cg_devreq(DEVREQNO,deptno,appman,appdate,memo)
   values(cg_sequence.nextval,v_DEPTNO,v_APPMAN,v_APPDATE,v_MEMO);
   select DEVREQNO into v_DEVREQNO from cg_devreq where rowid=(select max(rowid) from cg_devreq);
end xqinfo;

Answer 1

ADOStoredProc1设置它的参数类型，属性Params设置

Answer 2

ADOStoredProc1.Parameters.ParamByName('a').DataType :=...