怎样保存记录集！

我现在使用了ADOQUERY进行查询，但我想保存查询后的记录集，并且记录集的数量不定可能需要动态创建记录集，不知道怎么创建？那位能指点一下！
procedure THRI_OrgForm.WriteTree(MyNode:TTreeNode;Grade:Integer);
var
        ThisNode:TTreeNode;
        ThisGrade:Integer;
        ThisDataSet:TADODataSet;
        ChildNode:TTreeNode;
begin
        ThisGrade:=Grade;
        ThisNode:= MyNode;        ADOQuery1.SQL.Clear();
        ADOQuery1.SQL.Add('select * from tgORG_DeptInfo where fdLevel='+IntToStr(ThisGrade)+'Order by fdDeptRank');
        ADOQuery1.Open();
        ADOQuery1.Active:=True;
        
        ThisDataSet.DataSource:=ADOQuery1.DataSource;//只想把数据集保存下来！
 //循环开始时出错
        while ThisDataSet.Eof <> True  do
        begin
             ChildNode:=HRI_OrgTree.Items.AddChild(ThisNode,'ddd');
             WriteTree(ChildNode,ThisGrade+1);
             ThisDataSet.Next();
        end;
end;如果ADODATASET实现不了，其他能实现吗？