Delhi 动态创建TImage控件的删除

//双重保险，TImage对象有时候使用FindControl时候释放不掉 而其他类型的控件时可以的。
    self.ScrollBox1.FindComponent(global.ItemIDList.Strings[i]).Free;
    (self.ScrollBox1 as TScrollBox).FindChildControl(global.ItemIDList.Strings[i]).Free;

以上代码无法删掉动态创建的TImage对象，双重保险也不管用。

 

//真正起作用的是下面的代码  上面的完全失效 释放不掉
with (self.ScrollBox1 as TScrollBox) do
begin
    for i:=ControlCount-1 downto 0 do
     if (uppercase(Controls[i].Name)<>uppercase('BackgroundImage')) and (uppercase(Controls[i].ClassName)=uppercase('TImage')) then
           Controls[i].Free;

end;