Die ganzen Abfagen kann man sich sparen mit:
Delphi-Quellcode:
const bildname: array[0..3] of string = ('wasser.jpg', 'schuss.jpg', 'schiff.jpg', 'wrack.jpg');
....
image1.picture.loadfromfile(bildname[a[1][1]]);
image2.picture.loadfromfile(bildname[a[1][2]]);
....
Und auf die Komponenten kann man in einer Schleife über den Namen zugreifen
'image'+intoToStr(i)
Nachdem Windows den Dateizugriff wohl im Cache halten wird, ist es vielleicht egal, trotzdem würde ich eher ein Feld mit 4 TImage Variablen anlegen und in die nur einmal die Bilder einlesen, unzählige Male die Dateien öffnen und lesen ist sicher nicht sinnvoll:
Delphi-Quellcode:
var bild: array [0..3] of timage;
bild[0].loadfromfile ('wasser.jpg');
bild[1].loadfromfile ('schuss.jpg');
und dann
Delphi-Quellcode:
image1.picture := bild[a[1][1]];
image2.picture := bild[a[1][2]];
...
[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]