删除控件的问题

                            
界面上有1000多个image,命名方式为MyImageName1,MyImageName2,MyImageName3....MyImageName1023,请问各位大侠有什么方法可以一次删除这些控件?   
  For   I:=1   To   1023   Do  
                (FindComponent('MyImageName'+IntToStr(I))   As   TImage).Free;  
  这种方法速度太慢,有什么别的办法吗?

查看回复