1:

var umgebung: array[1..25,1..8] of byte;					

1:
2:
3:
4:
5:
6:
7:
8:

umgebung[1,1]:=Image2.tag;
umgebung[1,2]:=Image7.tag;
umgebung[1,3]:=Image6.tag;
umgebung[2,1]:=Image3.tag;
umgebung[2,2]:=Image8.tag;
umgebung[2,3]:=Image7.tag;
umgebung[2,4]:=Image6.tag;
//.....					

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.ImageClick(Sender: TObject);
var i,a:byte;
begin
  for i:=1 to 8 do begin
  if umgebung[tag,i]=bombenposition[1] then begin a:=1; showmessage(inttostr(a)); end
  else begin a:=0; showmessage(inttostr(a)); end;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

const
  sx = 25;   // Anzahl Felder X
  sy = 25;   // Anzahl Felder Y
  dx = 12;   // Feldbreite X in Pixeln
  dy = 12;   // Feldbreite Y in Pixeln

  mines = 4; // Anzahl Minen

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure ImageClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    Field: array[0..sx*sy-1] of TImage; // Die Felder als TImage
    procedure SetImageColor(const i: Integer; const AColor: TColor);
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

// Beim Programmstart: Images dynamisch anlegen
procedure TForm1.FormCreate(Sender: TObject);
  var
    i: Integer;
begin
  for i := 0 to sx*sy-1 do begin // alle Felder bearbeiten
    Field[i] := TImage.Create(Self); // Control erzeugen
    Field[i].Parent := Self; // sichtbar machen
    Field[i].Tag := i; // Feld-Nr. mitgeben, damit man das Feld beim Klicken wiederfindet
    Field[i].Left := (i mod sx) *dx; // X-Position
    Field[i].Top := (i div sx) *dy; // Y-Position
    Field[i].Width := dx; // Größe des Controls
    Field[i].Height := dy;
    Field[i].Picture.Bitmap.Width := dx; // Größe des Bildes im Control
    Field[i].Picture.Bitmap.Height := dy;
    Field[i].Picture.Bitmap.PixelFormat := pf24bit; // Farbtiefe
    SetImageColor(i, clWhite); // färben
    Field[i].OnClick := ImageClick; // Click-Handler zuweisen
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

// Es wurde auf ein Image geklickt
procedure TForm1.ImageClick(Sender: TObject);
  var
    ThisImage: TImage;
    x, y, ix, iy: Integer;
begin
  ThisImage := Sender as TImage; // in Sender wird das Image übergeben, auf das geklickt wurde
  x := ThisImage.Tag mod sx; // X-Position aus der Feld-Nr. berechnen
  y := ThisImage.Tag div sx; // Y auch
  SetImageColor(ThisImage.Tag, clRed);
  for ix := -1 to 1 do // je 1 Feld horizontal drumrum
    for iy := -1 to 1 do // und 1 Feld vertikal drumrum
      if (ix <> 0) or (iy <> 0) then // aber nicht das in der Mitte
        if ( (x+ix) in [0..sx-1] ) and ( (y+iy) in [0..sy-1] ) then // Ränder weglassen
          SetImageColor(x+ix +(y+iy)*sx, clBlue);
  ShowMessageFmt('Feld-Nr.: %d, x:%d, y:%d',[ThisImage.Tag, x, y]);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

// Farbe eines Feldes setzen
procedure TForm1.SetImageColor(const i: Integer; const AColor: TColor);
begin
  if (i >= 0) and (i <= High(Field)) then begin // Feld-Nr. gültig?
    Field[i].Picture.Bitmap.Canvas.Brush.Color := AColor; // Hintergrund
    Field[i].Picture.Bitmap.Canvas.Pen.Color := clGray; // Rand
    Field[i].Picture.Bitmap.Canvas.Rectangle(0,0,dx-1,dy-1); // zeichnen
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.ImageClick(Sender: TObject);
var i,j:byte;
image_geklickt: TImage;
t: integer;
begin

image_geklickt := Sender as TImage;
t:= image_geklickt.tag;
  for j:=1 to 4 do begin
      for i:=1 to 8 do begin
      if umgebung[t,i]=bombenposition[j] then begin z[j]:=j; end;
      end;
  end;
end;					

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:

procedure TForm1.ImageClick(Sender: TObject);
var nr,i,j,bombenzahl:byte;
bombe_getroffen:boolean;
begin
bombenzahl:=0;
bombe_getroffen:=false;
with sender as timage do begin
nr:=tag;

  // Bombe getroffenß?
  for i:=1 to 4 do if bombenposition[i]=nr then begin
  picture.LoadFromFile('bombe.bmp');
  bombe_getroffen:=true;
  end;

if not bombe_getroffen then begin
  for i:=1 to 4 do begin
      for j:=1 to 8 do begin
      if umgebung[nr,j]=bombenposition[i] then begin inc(bombenzahl) end;
      end;
  end;
  //showmessage(inttostr(bombenzahl));

case bombenzahl of
 0:picture.LoadFromFile('leer.bmp');
 1:picture.LoadFromFile('1.bmp');
 2:picture.LoadFromFile('2.bmp');
 3:picture.LoadFromFile('3.bmp');
 4:picture.LoadFromFile('4.bmp');
end;
end;
end;
end;					

1:
2:
3:
4:

Form2.Show;
Form2.ShowModal;
Form2.Hide;
...					

1:

path := ExtractFilePath(Application.ExeName);  // ermittel den Pfad der Exe-Datei - Am Ende ist ein /					

1:

picture.LoadFromFile(path + 'leer.bmp');  // Dann müsste dein Bild in dem selben ordner wie deine Exe sein					

1:
2:
3:

Image1.LoadFormFile('Pictures/Bild1.bmp');  // geht in ordner Pictures

Image2.LoadFormFile('Pictures/Bild2.bmp');  // hier käme Fehlermeldung, weil er schon vorher im Ordner Pictures ist und dann in diesem nach einem weitern Sucht (-> /Pictures/Pictures/Bild2.bmp)