如何实现控件的动态添加与删除？(50分)

如果需要在程序运行过程中动态添加很多TImage的控件，

该如何操作？

删除那？

添加：
for i := 0 to 100 do
with timage.create(self) do
begin
parent := self;
left := i * 16;
top := 5;
with := 16;
height := 16;
picture.loadfromfile('test.bmp');
visible := true;
end;

删除： 一般可以不管，程序退出时会自动删除。要手工删除也可以
for i := controlcount-1 downto 0 do
if controls is TImage then
TImage(controls).free;

多人接受答案了。