Код:
procedure TForm1.Timer1Timer(Sender: TObject);
var ii:integer;
begin
for ii := Low(arr)+1 to 7 do
begin
//Memo3.Lines.Add(inttostr(arr[ii]));
(FindComponent('Button' + IntToStr(arr[ii])) as TButton).onClick(Sender);
end;
Спасибо за помощь уже во всем разобрался) ограничить массив количеством кнопок к примеру раз исходный код большой можно взять чуть больше 50%
