我在scrollbox上动态添加了按钮和edit,如何用公式全部删除?

[honey_001]

我在scrollbox上动态添加了按钮和edit,如何用公式全部删除?
我要实现定时刷新,将scrollbox清空.

[cll007]

动态添加
procedure TForm1.Button3Click(Sender: TObject);
var
edit:array[0..3]of TEdit;
i:integer;
begin
for i:=low(edit) to high(edit) do
begin
edit[i]:=TEdit.Create(self);
edit[i].Top:=i* (edit[i].Height+8)+8;
edit[i].Left:=8;
edit[i].Parent:=ScrollBox1;
edit[i].Tag:=1024; //做个特殊标记，证明是你动态创建 ,若全部是动态创建，那么不需要
end;
end;
动态删除
procedure TForm1.Button4Click(Sender: TObject);
var
i:integer;
begin
for i:= ScrollBox1.ControlCount-1 downto 0 do
begin
//若全部是动态创建，那么不需要 and ((ScrollBox1.Controls[i] as TEdit).Tag=1024 )
if ( ScrollBox1.Controls[i] is TEdit) and ((ScrollBox1.Controls[i] as TEdit).Tag=1024 )then
(ScrollBox1.Controls[i] as TEdit).Free;
end;
end;

[honey_001]

若按钮的个数是一个num变量该如何处理?