Methodenaufrufe intern

[stoxx]

ich möchte folgendes realisieren.
Die Procedure : Zwischenaufruf soll nicht wissen, ob es sich um ein TNotifyEvent oder andere Events handelt.
Sie soll einfach jedes beliebige Event weiterleiten.
Aber irgendwie fehlen mir die genauen und professionellen Kenntnisse in Delphi.
Wie würde da funktionieren (procedure Zwischenaufruf)

hmm *grübel*

Delphi-Quellcode:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TEvent = procedure of Object;
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    procedure ZwischenAufruf( args: array of const);
    procedure Aufruf(Sender : TObject);
    { Private declarations }
  public
    Event : TEvent;
    FMethod : TMEthod;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var NotifyEvent : TNotifyEvent;
begin
  NotifyEvent := self.Aufruf;
  FMethod := TMethod(NotifyEvent);

  zwischenAufruf([self]);
end;

//==============================================================================

procedure TForm1.ZwischenAufruf( args: array of const);
begin

    TEvent(FMethod)( args); ?!?!?


end; //  ZwischenAufruf  (TForm1)

//==============================================================================

procedure TForm1.Aufruf(Sender : TObject);
begin

    TForm1(Sender).Caption := 'Erfolgreich';
end; //  Aufruf  (TForm1)