怎样取得存储过程的输出参数;(ADOStoredProc)

Question

数据库为:ms sql 2000
有一
proc: ProUpdateFilesBox_D(@delman varchar(20),@out varchar(20) output)
---------------------------------------------------------------------- with dm.ADOStoredProc do
    begin
      close;
       parameters.Clear;
       procedurename:='ProUpdateFilesBox_D;1';
       parameters.Refresh;
       parameters.ParamByName('@DelMan').Value := delMan;
       //@out                  ---------------------------????
       execproc;
     end;

Answer 1

with dm.ADOStoredProc do
    begin
      close;
       parameters.Clear;
       procedurename:='ProUpdateFilesBox_D;1';
       parameters.Refresh;
       parameters.ParamByName('@DelMan').Value := '';
       //@out                  ---------------------------????
       execproc;
     end;
    edit1.text:= parameters.ParamByName('@DelMan').Value ;

Answer 2

with dm.ADOStoredProc do
    begin
      close;
       parameters.Clear;
       procedurename:='ProUpdateFilesBox_D;1';
       parameters.Refresh;
       parameters.ParamByName('@DelMan').Value := 'ddd';  //输入参数
       parameters.ParamByName('@DelMan').Value:='';      //输出参数
       execproc;
     end;
    edit1.text:= parameters.ParamByName('@DelMan').Value ;