proceduren zuweisen in eigener klasse

[Chaosente]

Also ich hab zwei klassen.
Und im constructor meiner einen klasse will ich der procedure einer anderen klasse eine aus meiner klasse zuteilen.

Klasse1:

Delphi-Quellcode:

(...)
  procedure AIClick(x,y:integer);
  end;

procedure TKKSPielfeld.AIClick(x,y:integer);

Klasse2: (andere unit)

Delphi-Quellcode:

(..)  
  procedure Click(x,y:integer);
  end;


procedure TKKPLayer.Click(x,y:integer);
begin

end;
(...)

Und im Konstruktor von Klasse 1:

Delphi-Quellcode:

if (..)
  then FPLayer2.click:=AIClick;

Er gibt mir aber folgenden Fehler Code aus:
[Fehler] KKSpielfeld.pas(105): E2035 Nicht genügend wirkliche Parameter