TNotifyEvent Objektbezogen in Variable speichern

[berens]

Also hier müssen auch noch beide @ weg? Weil bisher hat es auch so gut geklappt.

Delphi-Quellcode:

function THAL_Observer.IndexOfEvent(_Event: TNotifyEvent): Integer;
var i: Integer;
begin
  for i := 0 to FListSubscriber.Count - 1 do
    if @THAL_ObserverItem(FListSubscriber[i]).Event = @_Event then
    begin
      Result := i;
      Exit;
    end;
  Result := -1;
end;