procedure TForm2.Button16Click(Sender: TObject);
var
aMethod:tMethod;
begin
aMethod.Code:=self.MethodAddress(‘Button1Click‘);
aMethod.Data:=self;
TButton(self.FindComponent(‘Button16‘)).OnClick := TNotifyEvent(aMethod);
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  showmessage(‘hello‘);
end;