1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:

{...}
const
  MAX_IMG = 3;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ImageClick(Sender: TObject);
{...}
var
  Form1: TForm1;
  ImageVector: ARRAY[1..MAX_IMG] of TImage;
  ActiveImage: Integer;
{...}
procedure TForm1.FormCreate(Sender: TObject);
  var
    i: Integer;
begin
  ImageVector[1] := Image1;
  ImageVector[2] := Image2;
  ImageVector[3] := Image3;
  // alle Images disablen
  for i := 1 to MAX_IMG do
    ImageVector[i].Enabled := FALSE;
  // keins ist aktiv
  ActiveImage := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // wenn ein Image ausgewählt war, deaktivieren
  if (ActiveImage > 0) then
    ImageVector[ActiveImage].Enabled := FALSE;
  // ein zufälliges Image aussuchen
  ActiveImage := Random(MAX_IMG) +1;
  // dieses aktivieren
  ImageVector[ActiveImage].Enabled := TRUE;
end;

procedure TForm1.ImageClick(Sender: TObject);
  var
    i: Integer;
begin
  // Index des angeklickten Images bestimmen
  i := 1;
  while ( (i <= MAX_IMG) and (Sender <> ImageVector[i]) ) do
    Inc(i);
  if (i <= MAX_IMG) then
    ShowMessage('Image '+IntToStr(i)+' angeklickt!')
  else
    ShowMessage('Fehler! Das Image ist nicht registriert!?');
end;					

1:

if TImage(Sender).Tag = ActiveImage then					

1:

Image.Parent:=Panel;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:

uses
  {...,} ExtCtrls;

type
  TForm1 = class(TForm)
    {...}
    procedure ImagesOnClick(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;

implementation
var
  ActiveImage : Integer;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  a : Integer;
begin
  Randomize;
  ActiveImage:=Random(9);
  for a:=0 to 8 do
  begin
    with TImage.Create(Form1) do
    begin
      Parent:=Form1;
      Visible:=True;
      Width:=50;
      Height:=50;
      Left:=Random(Form1.ClientWidth-50);
      Top:=Random(Form1.ClientHeight-50);
      Tag:=a;
      Name:='Image'+InttoStr(a);
      OnClick:=ImagesOnClick;
      with Canvas do
      begin
        Brush.Style:=bsSolid;
        if ActiveImage = a then
        begin
          Brush.Color:=clWhite;
          Pen.Color:=clBlack;
        end else
        begin
          Brush.Color:=clBlack;
          Pen.Color:=clWhite;
        end;
        Rectangle(ClipRect);
      end;
    end;
  end;
end;

procedure TForm1.ImagesOnClick(Sender: TObject);
var
  a : Integer;
begin
  if TImage(Sender).Tag = ActiveImage then
  begin
    with TImage(Sender).Canvas do
    begin
      Brush.Style:=bsSolid;
      Brush.Color:=clBlack;
      Pen.Color:=clWhite;
      Rectangle(ClipRect);
    end;
    a:=ActiveImage;
    repeat
      ActiveImage:=Random(9);
    until a <> ActiveImage;
    with TImage(FindComponent('Image'+InttoStr(ActiveImage))).Canvas do
    begin
      Brush.Style:=bsSolid;
      Brush.Color:=clWhite;
      Pen.Color:=clBlack;
      Rectangle(ClipRect);
    end;
  end;
end;

{...}