[corpse6666]

Как избавиться от вечного заполнения массива?

Код:

var
  Form1: TForm1;
       a,b,c,d:integer;
       i: integer;
        arr: array [0..10000] of integer;
       v1,v2:integer;
       l: string;
implementation

{$R *.dfm}


procedure TForm1.Button3Click(Sender: TObject);
begin
i:=i+1;
arr[i]:=3;
a:=radiogroup1.ItemIndex;
l:=button3.Caption;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin

i:=i+1;
arr[i]:=6;
a:=radiogroup2.itemindex;
 l:=button6.Caption;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
i:=i+1;
arr[i]:=1;
button1.Caption:=l;
v1:=a;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin

i:=i+1;
arr[i]:=2;
button2.Caption:=l;
v2:=a;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
i:=i+1;
arr[i]:=4;
b:=v1 and v2;
a:=1-b;
label1.caption:=inttostr(a);
l:=button4.Caption;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
i:=i+1;
arr[i]:=5;
Memo2.lines.Add(inttostr(c));
Timer1.Enabled:=True;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
var ii:integer;
begin
for ii := Low(arr)+1 to High(arr) do
begin
//Memo3.Lines.Add(inttostr(arr[ii]));
(FindComponent('Button' + IntToStr(arr[ii])) as TButton).onClick(Sender);
end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
i:=0;
end;

end.