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

type
  TErrorNotify = procedure(Sender: TObject; Error: Word) of object;

  TKlasse = class // irgendeine klasse
  private
    FErrorEvent: TErrorNotify;
  public
    property OnError: TErrorNotify read FErrorEvent write FErrorEvent; // Normalerweise Set und Get Prozeduren verwenden!
  end;					

1:
2:

  if Assigned(FErrorEvent) then
    FErrorEvent(Self, 1);					

1:

procedure TForm1.Button2Click(Sender: TObject; aCaption:String);