急怎么動態得到組件名

急.....如何動態得到組件名?
如何動態得到組件名?如寫一個函数返回組件名?

[解决办法]
在详细点
[解决办法]
for i:=0 to Componentcount-1 do
showmessage(components[i].name);