for I := 0 to ImageEnMView.ImageCount - 1 do
  begin
    try
      ImageEnMView.GetBitmap(I);
    finally
      ImageEnMView.ReleaseBitmap(I, False);
    end;
  end;

const
  USE_GETBITMAP = False;
var
  I: Integer;
  bmp: TBitmap;
  iebmp: TIEBitmap;
begin
  for I := 0 to ImageEnMView1.ImageCount - 1 do
  begin
    bmp := nil;
    try
      Caption := IntToStr( i ) + ' - ' + ImageEnMView1.ImageFilename[i];

      if USE_GETBITMAP then
        bmp := ImageEnMView1.GetBitmap(I)
      else
      begin
        bmp := TBitmap.Create;
        iebmp := ImageEnMView1.GetTIEBitmap(I);
        iebmp.CopyToTBitmap( bmp );
      end;

      // do somethign with bmp...
    finally
      if not USE_GETBITMAP then
        FreeAndNil( bmp );
      ImageEnMView1.ReleaseBitmap(I, False);
    end;
  end;
  MessageBeep(0);
end;