如何一次傳回多個資料表

procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
  with ADODataSet1 do
  begin
    Close;
    CommandText :=
      ' select top 10 * from table1; '+
      ' select top 20 * from table2; '+
      ' select top 30 * from table3';
    Open;
  end;
  // ADODataSet1 先會取得 table1 的資料

  // ADODataSet2 會取得 table2 的資料
  ADODataSet2.Recordset := ADODataSet1.NextRecordset(i);

  // ADODataSet3 會取得 table3 的資料
  ADODataSet3.Recordset := ADODataSet1.NextRecordset(i);
end;