怎么遍历容器上的控件并获得控件名称

如何遍历容器上的控件并获得控件名称?
小弟想做一个函数，入口参数其中一个为TADOQuery类如TmpADOQuery,内部做一个判断数据容器中是否存在TmpADOQuery？有人知道怎么做吗？谢谢

[解决办法]
procedure SearchADOQueryName(const Cp : TComponent; var R : TStringList);
var
I : integer;
begin
for I := Cp.ComponentCount-1 downto 0 do
if Cp.Components[I] is TADOQuery then
R.Add(TADOQuery(Cp.Components[I]).Name);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
ADOQs : TStringList;
begin
ADOQs := TStringList.Create;
SearchADOQueryName(Form1, ADOQs);//把Form1换成你要查找的容器
Memo1.Text := ADOQs.Text;
ADOQs.Free;
end;