[corpse6666]

Код:

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