Event Property erst prüfen dann setzen

[static_cast]

Ahoi,

ich habe mal eine Frage oder besser gesagt ein mittleres Problem, folgender Code:

property OnMyEvent:TNotifyEvent read FMyEvent write SetMyEvent;

Delphi-Quellcode:

procedure TClass.SetMyEvent(const Value:TNotifyEvent);
begin
  FMyEvent:=Value;

  if NOT Assigned(FMyEvent) then
  begin
    FMyEvent:=Self.DefaultInternalEvent;
  end;
  
  MyComponent.Event:=FMyEvent;
end;

Und zwar tut es nicht so wie ich es gerne hätte. Der Event ist Default auf eine interne Procedure gesetzt aber man soll ihn auch überschreiben können auf eine externe Procedure, im OI oder wo auch immer...

Weiß jemand woran das liegt oder welchen Fehler ich ggf. mache (abgesehen jetzt von vllt falschen var Namen oder so, da ich den Code jetzt nur so zum zeigen des Problems erstellt habe)?

Die Delphi Version ist D5 Pro. mit Update 1

Grüße und danke schonmal im vorraus =)
Daniel