Variable mit Variable

[hesch21]

Danke für Eure Antworten, aber leider funktioniert alles nicht.
Die 'Glücksvariante' von Aphton gibt eine Excpetion.
Und die Quick und Dirty-Lösung von DeddyH geht schon beim Compilieren mit XE2 in die Hose. Ich habe die Image wie empfohlen umgetauft. Die heissen nun 'Bild1' bis 'Bild12'.

Code:

procedure TFPDFHandler.Button1Click(Sender: TObject);
var x         : integer;
var img       : TImage;
begin
 for x := 1 to BMPFiles.Count do
     begin
     BMP := TBitmap.Create;
     BMPFiles.ItemIndex := X -1;
     BMP.LoadFromFile(BMPFiles.FileName);
     BMP.PixelFormat := pf8bit;
     img := FindComponent('Bild' + IntToStr(x));
     if assigned(img) then
        img.picture.Bitmap := BMP;
     BMP.Free;
     end;
end;

Das liefert einen Compiler-Fehler auf der Zeile img := FindComponent('Bild' + IntToStr(x)); E2010 Inkompatible Typen: 'TImage' und 'TComponent'

Die Lösung:

TImage(FindComponent('Bild' + IntToStr(x))).Picture.Bitmap := BMP;