Nicht alles ist gut, was geht. Der vom FrameWork vorgelebte Standardweg sieht so aus:
Delphi-Quellcode:
type
TSZOnFinishEvent = procedure(Sender: TObject) of object;
TSZTestClass = class(TComponent)
private
FOnFinishEvent: TSZOnFinishEvent;
end;
Grüße vom marabu