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

     while not eof(f) do
        begin
          readln(f,str);
          pics[i]:=TImage.create(form1);
          pics[i].Parent:=form1;
          pics[i].Visible:=true;
          pics[i].Picture.LoadFromFile(str);
          pics[i].Stretch:=true;
          pics[i].Left:=a;
          pics[i].Top:=b;
          a:=a+110;
        if a > 700 then begin a:=10;b:=b+110;
        end;
     end;					

1:

pics[i].OnClick := Click;					

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

procedure tpics.Click(Sender: TObject);
var str,str_aktiv:string;i:integer;
begin
str:=TImage(Sender).Name; //das war der Knackpunkt, da hab ich lange für gesucht, dass man das so übergeben kann

str:= copy(str,1,pos('Dateiname',str)-1) + '.' + copy(str,pos('Dateiname',str)+9,length(str)) ; 
//das ist nur, damit ich den kompletten Dateinamem als Name habe, schreibe halt vorher an die Stelle vom '.' das Wort Dateiname (hoffe das ich nie ne datei habe, die dann so heißt, aber kann man ja noch ändern), und hier ersetzt er dann wieder das Wort durch einen '.'

ShellExecute(Application.Handle, 'open', PChar(str),   Nil, Nil, SW_NORMAL)
end;					

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

var Dateiname: PChar; Adresse: Integer;

// Wir wandeln den Dateinamen str in einen PChar um, da dieser
// besser mit Pointern zu bedienen ist. Ein PChar ist ein Zeiger
// auf das erste Zeichen der Zeichenkette.
Dateiname := PChar(str);

// Wir wandeln die Adresse auf das erste Zeichen in einen Integer um,
// um sie dann der Eigenschaft "Tag" der Komponente zuweisen zu können
Adresse := Integer(Dateiname);
pics[i].Tag := Adresse;					

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

var Adresse: Integer; Dateiname: PChar;

// Adresse aus Tag auslesen, vorher noch den Sender in eine
// TComponent casten, damit wir auf die Eigenschaft Tag zugreifen
// können
Adresse := TComponent(Sender).Tag;

// Adresse in ein PChar umwandeln, um auf die Zeichen zugreifen zu können
Dateiname := PChar(Adresse);

// - jetzt steht der Dateiname in der gleichnamigen Variable -					

1:
2:
3:
4:

for i:=0 to overflow do
begin
pics[i].Destroy;
end;