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

var  j,i,k:integer;  dp:string;
     theImage:TImage;
.
.(Schleifenkopf)
.
theImage:=TImage.Create(Form2);
 theImage.Left:=50*k;
 theImage.Top:=20;
 theImage.Name :='Image'+inttostr(j);
 dp:= layer1[k,i].picName; //Da sind die Pfade zu den Bildern gespeichert (array of rec)
 theImage.Picture.LoadFromFile(dp);					

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

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TImage.Create(Self) do begin
    Parent := self; // !!!!!!!!
    Name := 'Image111';
    Top := 0;
    Left := 0;
    Width := 100;
    Height := 100;
    Picture.LoadFromFile('C:\test.jpg');
  end;
end;