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;