ADOStoredProc先有数据集合,然后是
With ADOStoredProc do
begin
      Open;
      First;
      While not Eof
      begin
             //对当前记录进行操作
             Next;
      end;
      Close;
end