Как вызвать событие кнопки, если я знаю номер кнопки?

var
  Name,NumberBtn:string;
begin
 
 NumberBtn:='10';
 Name:='Button'+ NumberBtn;
 
 if  TButton(FindComponent(Name)) is TButton then
 TButton(FindComponent(Name)).Click;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Btn : TButton;
  i, Num : Integer;
begin
  //Номер кнопки, которую надо нажать программно.
  Num := StrToInt(Edit1.Text);
  //Та кнопка, которую нажали.
  Btn := Sender as TButton;
  //Если задали номер той кнопки, чей обработчик OnClick сейчас выполняется
  // - в этом случае выходим.
  if Num = Btn.Tag then Exit;
 
  //Перебираем все компоненты, имеющиеся на форме.
  for i := 0 to Self.ComponentCount - 1 do begin
    //Если компонент является кнопкой.
    if Self.Components[i] is TButton then begin
      Btn := Self.Components[i] as TButton;
      //Если номер кнопки совпал с заданным номером,
      //то нажимаем эту кнопку программно -
      //вызваем её побработчик события OnClick.
      if Btn.Tag = Num then Btn.Click;
    end;
  end;
end;