Wie kann ich feststellen welche Ereignismethode zugewiesen wurde?

[s.h.a.r.k]

Ich hab das gerade mal schnell generisch gelöst:

Delphi-Quellcode:

function TForm1.CompareMethod<T>(M1, M2: T): Boolean;
begin
  Result := (TMethod(Pointer(@M1)^).Code = TMethod(Pointer(@M2)^).Code)
        and (TMethod(Pointer(@M1)^).Data = TMethod(Pointer(@M2)^).Data);
end;

Aber das von shmia ist fast besser imho, vor allem für ältere Delphi-Versionen.