leer imagenes jpg dentro de una carpeta

[ecfisa]

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.