用delphi的dbexpress中的SQLStoredProc1调用oracle的存储过程老出现list index out of bound(0)?

Question

procedure TForm1.Button1Click(Sender:TObject);
begin
  SQLStoredProc1.StoredProcName:='YW_test';
  SQLStoredProc1.Params.Clear;
  SQLStoredProc1.Params.CreateParam(ftstring,'V_name',ptInput).AsString:='ok';
  SQLStoredProc1.Params.CreateParam(ftstring,'V_result',ptOutput).AsString;
  SQLStoredProc1.Prepared:=true;
  SQLStoredProc1.ExecProc;
  edit1.Text:=SQLStoredProc1.Params.Items[1].AsString;
end;oracle 存储过程如下：
CREATE OR REPLACE PROCEDURE TOOL132.YW_TEST
(  V_name varchar2,
   V_result out varchar2
)
IS
BEGIN
   V_result:=V_name;
exception
   when others then
    V_result:='错误'; 
END;
/ 就这个问题 我弄了一天都没有得到结果！就得到list index out of bound(0)，调用存储过程就这么难吗？

Answer 1

edit1.Text:=SQLStoredProc1.Params.Items[1].AsString;
改为 
edit1.Text:=SQLStoredProc1.Params.Items[0].AsString;
试试