[icWasya]

только Sender не тот

Код:

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

или даже

Код:

procedure TForm1.Timer1Timer(Sender: TObject); 
var
 ii:integer; 
 C:TComponent;
begin
  for ii := Low(arr)+1 to 7 do
  begin
    //Memo3.Lines.Add(inttostr(arr[ii])); 
    C:=FindComponent('Button' + IntToStr(arr[ii]));
   if C is TButton then
     (C as TButton).Click; //<<==-----
end;