// Add a New Layer
            CurrLayerIdx := i;
            NewLayerIdx := ImageEnViewMain.LayersAdd;

            // Load teh file
            ImageEnViewMain.IO.Params.JPEG_EnableAdjustOrientation := True;
            ImageEnViewMain.IO.LoadFromFile(PhotoFileName);

            if ImageEnViewMain.CurrentLayer.Width >
              ImageEnViewMain.CurrentLayer.Height then
            begin
              // This is Land scape Photo
              ImageEnViewMain.Proc.Resample(LayerW, -1, rfNone, True);
            end
            else
            begin
              // This is a Portrait Photo
              ImageEnViewMain.Proc.Resample(-1, LayerH, rfNone, True);
            end;

procedure TForm1.Button1Click(Sender: TObject);
var
  dir: TIEDirContent;
  sFilename : WideString;
  c: integer;
begin
  c:=0;
  while true do
  begin
    memo1.lines.add('cycle #' + inttostr(c));
    dir := TIEDirContent.Create('C:\images\*.jpg');
    while dir.GetItem(sFilename) do
    begin
      imageenview1.IO.Params.JPEG_EnableAdjustOrientation := True;
      imageenview1.io.loadfromfile('c:\images\'+sFileName);
    end;
    dir.free;
    inc(c);
  end;
end;