Delphi-Quellcode:
btn2 := TButton.Create(Form1);
btn2.Parent := Form1;
btn2.Caption := 'btn2';
btn2.OnClick := button.OnClick;
Das unter die Zeile
button.OnClick := self.Button2Click;
schreiben. Deklaration nicht vergessen. Und der Btn2 führt das OnClick ereignis des buttons aus den du vorher erstellt hast