Eigene Komponente -> Wie ein eigenes OnEvent erstellen?

[Hobbycoder]

Also ich mach das, gerade in eigenen Componenten, immer so:

Delphi-Quellcode:

Type
  TOnAbort=proceudre(Sender: TObject; Aborted: Boolean) of object;

  TMyComponent=class(TComponent)
  private
    FOnAbort: TObAbort;
    procedure DoAbort(Aborted: Boolean);
  published
    property OnAbort: TOnAbort read FOnAbort write FOnAbort;
  end;

.
.
.
  proceudre DoAbort(Aborted: Boolean);
  begin
    if Assigned(FOnAbort) then
      FOnAbort(self, Aborted);
  end;
.
.
.
  procedure Execute;
  begin
.
.
.
.
    DoAborted(True);
  end;

So habe ich auch mit self den Sender zur weiteren Verarbeitung und den Event im OI