1:
2:
3:
4:
5:

procedure foo;
begin
end;

MeineKlasse.OnFoo = foo;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

TOnBlubb = procedure(MyIndex: integer) of object;

TMyClass = class

  private
     FOnBlubb: TOnBlubb;


  public
     property OnBlubb: TOBlubb read FOnBlubb write FOnBlubb;
     procedure Blubb(MyIndex: integer);


procedure TMyClass.Blubb(MyIndex: integer);
begin
  if (Assigned(FOnBlubb)) then
    FOnBlubb(MyIndex);
end;

procedure TMyClass.Add;
begin
   //bli bla
   Blubb(10);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

type
  TFooEvent(Sender: TObject; FooContent: integer) of object;

  TYourClass = class(TObject)
    private
      fFooEvent: TFooEvent;
      procedure DoFooEvent(aFooContent: integer);
    public
      property OnFooEvent: TFooEvent read fFooEvent write fFooEvent;
      procedure Foo;
  end;

procedure TYourClass.DoFooEvent(aFooContent: integer);
begin
  if assigned(fFooEvent) then      // wenn ein Event-Handler zugewiesen wurde
    fFooEvent(Self, aFooContent);  // Event mit Parametern abfeuern
end;

procedure TYourClass.Foo;
begin
  DoFooEvent(42);
end;