DEPHI7通过dbexpress访问ORACLE数据库问题

正常的我用TSQLConnection+TSQLQuery 执行SQL的时候一切正常但是我用TSQLConnection+TSQLStoredProc 访问存储过程的时候总是报'List index out of bounds(0)存储过程是
CREATE OR REPLACE PROCEDURE sp_lj(rc_result OUT VARCHAR2 --返回结果
                                  ) ISBEGIN
  rc_result := ' ';
exception
  when others then
    rc_result := '0::处理时出错 ' || SQLERRM;
    ROLLBACK;
    RETURN;
END;
客户端调用是
procedure TForm1.Button2Click(Sender: TObject);
begin
  SQLConnection1.Connected := true;
  if SQLConnection1.Connected then
    showmessage('OK') else showmessage('not OK');  tmpSQLSP.close;
  tmpSQLSP.StoredProcName :='sp_lj';
  //tmpSQLSP.SchemaName:='dbo';
  tmpSQLSP.Params.Clear;
  tmpSQLSP.Params.CreateParam(ftString, 'rc_result', ptOutput);  try
   tmpSQLSP.ExecProc;//这里执行出错
  except
    on e: exception do
    begin
      showmessage(e.Message);
      exit;
    end;
  end;
   edit2.Text := tmpSQLSP.ParamByName('RC_Result').Value;  tmpSQLSP.Free;
end;执行结果是