Event mit Parameter der sich selbst enthält

[Treffnix]

Das sollte gehen, indem du einfach nen Dummy davorsetzt:

Delphi-Quellcode:

type 
  TSZTestClass = class;  
  TSZOnFinishEvent = procedure (SZTestClass: TSZTestClass) of Object; // Benötigt die classe TSZTestClass, die es noch nicht gibt 
  TSZTestClass = class(TComponent) 
  private 
    FOnFinishEvent: TSZOnFinishEvent;                                                                      
end;