Bonjour,
exemple avec deux boutons (button1 et button2) :
procedure TForm1.Button1Click(Sender: TObject);
var
ButtonInProgress: TButton;
begin
ButtonInProgress := TButton(FindComponent('Button' + IntToStr(2)));
if Assigned(ButtonInProgress) then
ButtonInProgress.OnClick(sender);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
showMessage('ok !');
end;