delphi query 同时返回sql存储过程的数据集和output参数

  ADOQuery3.SQL.Clear;
  ADOQuery3.sql.Add('exec report_test :xx output');
  ADOQuery3.ExecSQL;
  ADOQuery3.Active:=true;
  Label1.Caption:=IntToStr(ADOQuery3.Parameters.ParamByName('xx').Value);