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:

{Imagewahlfenster}
procedure TForm_Spiel.ImagesetConfig(Setnr: integer);
var i:integer;
begin
  // Bilder laden 
  for I := 1 to 5 do
    TImage(FindComponent('IImgSet'+IntToStr(i))).Picture.Bitmap.LoadFromResourceName(HInstance, 'IMG_S'+IntToStr(i)+'_1');
  // Fehlende Bilder auffüllen
  for I := 3 to 5 do
    TImage(FindComponent('IImgSet'+IntToStr(i))).Picture.Bitmap.LoadFromResourceName(HInstance, 'IMG_Nil');

  // Erst mal alle Panels auf Inaktiv & weiß
  for I := 1 to 5 do
    begin
      with TPanel(FindComponent('PImgSetStatus'+inttostr(i))) do
        begin   
          caption:='Inactive';
          Color:=clwhite; // dies geschieht übrigens nicht... kp warum. Allerdings wird hier kein Fehler ausgelöst...
        end;
    end;
  // Nach Nummer einstellen
  TPanel(FindComponent('PImgSetStatus'+inttostr(setnr))).Caption:='Active';
  TPanel(FindComponent('PImgSetStatus'+inttostr(setnr))).Color:=clsilver; { sobald ich diese Zeile drinlasse, 
erhalte ich eine direkt nach dem Ausführen (Form noch nicht einmal sichtbar, allerdings wird diese Prozedur 
logischerweise schon am Anfang aufgerufen) eine Fehlemeldung "Zugriffsverletzung bei Adresse... blablabla". 
Wenn ich die Zeile rausnehme kommt das nicht.}
end;

procedure TForm_Spiel.BImgSet1Click(Sender: TObject); // alle 5 Buttons aktivieren diese Proz.
begin
  Img.Games:=StrToInt((Sender as TButton).name[Length((Sender as TButton).name)]); // gibt die nr. des buttons zurück
  ImagesetConfig(Img.Games);
end;