Hola ingmichel.
Una forma podría ser mediante un TObjectList:
Código Delphi
[-]
...
uses JPeg, ExtCtrls, Contnrs;
var
ObjList: TObjectList;
...
procedure TForm1.btnCargarImagenesClick(Sender: TObject);
var
Nombres: TStrings;
Img: TImage;
i: Integer;
begin
if not Assigned(ObjList) then
begin
ObjList:= TObjectList.Create;
Nombres:= TStringList.Create;
try
LeerJPGS('C:\Users\Oz\Pictures',Nombres);
for i:= 0 to Nombres.Count -1 do
begin
Img:= TImage.Create(Self);
ObjList.Add(Img);
with TImage(ObjList[i]) do
begin
Picture.LoadFromFile(Nombres[i]);
Height:= 150;
Width:= 300;
Top:= i * 150 + 10;
Stretch:= True;
Parent:= ScrollBox1;
end;
end;
finally
Nombres.Free;
end;
end;
end;
...
procedure TForm1.btnLiberarImagenesClick(Sender: TObject);
begin
if Assigned(ObjList) then
ObjList.Free;
end;
Saludos.