The following code cycles through the datasets returned by a stored procedure.    var
  TempDataSet: TCustomSQLDataSet;
  nRows: Integer;
begin
  TempDataSet := SQLStoredProc1; // start with 1st record set
  while TempDataSet <> nil do
  begin
    TempDataSet.First;
    while not TempDataSet.Eof do
    begin
      // process each record
      TempDataSet.Next;
    end;
    if TempDataSet <> SQLStoredProc1 then // don急 free the original!
      TempDataSet.Free;        TempDataSet := SQLStoredProc1.NextRecordSet; // get next set
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  qry:TADOQuery;
  res:_Recordset;
  i:integer;
begin
  qry:=TADOQuery.Create(self);
  qry.ConnectionString :=
    'Provider=SQLOLEDB.1;Integrated Security=SSPI;' 
    'Persist Security Info=False;Initial Catalog=pubs;' 
    'Data Source=.';
  qry.SQL.Add('SELECT * FROM jobs');
  qry.SQL.Add('SELECT * FROM authors');
  qry.Open;
  ShowMessage(qry.Fields[0].AsString);
  res:=qry.NextRecordset(i);
  ShowMessage(res.Fields[0].Value);
  res.Close;
  qry.Close;
end;