Einen Button Click Event von anderem Formular aufrufen?

[Luckie]

Formular2:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
  ShowMessage('Test');
end;

Formular1:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Button1.Click;
end;

Funktioniert.