1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

Type blubb = class
  ...
  published
    property Event2:xxxx read yyyy;
  end;

//später im programm
procedure TForm1.OnEvent2(Sender:Tobject; msg:string);
begin
.
.
.
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

Type
  TMeinTollesNeuesEvent = procedure(Sender: TObject, Dingens: Integer; Kirchens: String) of Object;

// ...
// im Haupt-Typ

private
  fNeuesEvent : TMeinTollesNeuesEvent;

Public
  NeuesEvent: TMeinTollesNeuesEvent read fNeuesEvent write fNeuesEvent;					

1:
2:
3:
4:
5:

procedure TBlubb.SchmeissEvent;
begin
  if Assigned(fNeuesEvent) then
     fNeuesEvent(Self, 42, '42');
end;