Arrayelement anklicken

[Sotov]

Noch eine Frage:

Mit dem Ereignis OnClick möchte ich die Anzahl der Clicks zählen und je nachdem ob es klick1 oder klick2 ist,
möchte ich das bild einer variable karte1 oder karte2 zuordnen, die vom typ TImage sind.

So sieht es aus bei mir:

Delphi-Quellcode:

procedure TForm1.Image1Click(Sender: TObject);
var karte1,karte2: TImage;
begin
  (Sender as TImage).picture := Image2.picture;
  klick:=klick+1;
  if klick = 1 then
  karte1.OnClick := Karte[(j - 1) * x + k];
  else if klick = 2 then
  karte2.OnClick:= Karte[(j - 1) * x + k];

  if Karte2 =Karte1 then showmessage('hallo');
end;

klick ist globaldeklariert und von typ integer

das problem ist, ich weiss nicht wie man auf die gerade angeklickte karte zugreift. Ich habe versucht die variablen j,x,k global zu deklarieren und sie hier in deiser procedure zu benutzen, aber das klappt nicht.Vielleicht hat jemadnd eine lösung für mich.

Der Überlegung nach, sollte nach dem zweiten Klick diese Message kommen, es passiert aber nichts!