Events vergleichen

[igel457]

Hallo, ich habe ein "kleines" Problem...

Und zwar setze ich mit...

Delphi-Quellcode:

procedure TDXLuaGUIManager.ACallBack1(Sender:TObject);
begin
  with Sender as TDXComponent do
  begin
    OnClick := AClick;
  end;
end;

...OnClick (TNotifyEvent) einer Komponente auf die Prozedut AClick. Die Deklaration davon sieht so aus:
procedure AClick(Sender:TObject); Nun möchte ich überprüfen, ob OnClick auf AClick gesetzt worden ist.
Der Code von mir:

Delphi-Quellcode:

procedure TDXLuaGUIManager.ACallBack2(Sender:TObject);
begin
  with Sender as TDXComponent do
  begin
    if OnClick = AClick| then OnClick := nil;
  end;
end;

Leider spuckt mir der Compiler bei | eine Fehlermeldung (E2035 Nicht genügend wirkliche Parameter) aus.
Ich habe leider keine Ahnung, wie ich diesen Vergleich durführen kann. Ich habe es auch schon mit der Addresse (@) versucht, aber das hat auch nicht funktioniert.

Danke!