Arrayelement anklicken

[Sotov]

Ich habe folgendes Problem!

Ich habe ein array of TImage und möchte, dass die einzelnen elemnte angeklickt werden können.

Karte[1].OnClick funktioniert nicht

Delphi-Quellcode:

var
  Form1: TForm1;
  var karte :  array [1..100] of TImage;

implementation

{$R *.DFM}


procedure TForm1.FormCreate(Sender: TObject);
var j,i,a,b :integer;
begin
a:=2;
b:=2;
for j:= 1 to 4 do begin
for i:=1 to 5 do begin
  Karte[i]:=TImage.Create(Self);
  Karte[i].Parent:= Self;
  Karte[i].Left:=a;
  Karte[i].Top:= b;
  Karte[i].AutoSize:=True;
  Karte[i].Picture := Image1.picture;
  a:=a+100;
  end;
  a:= 2;
  b:= b+ 100;
 end;

end;

Ich habe die Bilder in die Form geladen um "picture.loadfromfile();" nicht zu benutzen, damit ich am Ende nur eine Exedatei habe.

Ich möchte das Spiel Memory machen.

Vielen Dank im Voraus!