怎样撤消某个控件下面的所有子项对象实例

Question

procedure TForm1.Button2Click(Sender: TObject);
var
  I:Integer;
begin
  for i := 0 to ComponentCount-1 do//控件数量
  begin
    if Components[i] is TEdit then ShowMessage(Components[i].Name);
    if Components[i] is TButton then ShowMessage(Components[i].Name);
    if Components[i] is TLabel then ShowMessage(Components[i].Name);
  end;
end;

Answer 1

大概意思～～你写Free就可以了～～

Answer 2

这个简单：
  for i := ScrollBox1.ControlCount - 1 downto 0 do
    ScrollBox1.Controls[i].Free;