procedure TForm1.Open1Click(Sender: TObject);
var
  iImageENIO: TImageEnIO;
  iIEBitmap: TIEBitmap;
begin
  if OpenPictureDialog1.Execute then
  begin
    iImageENIO := TImageEnIO.Create(Self);
    try
      iIEBitmap := TIEBitmap.Create;
      try
        iImageENIO.AttachedIEBitmap := iIEBitmap;
        { Load the bitmap}
        iImageENIO.LoadFromFile(OpenPictureDialog1.FileName);
        { Resample the bitmap }
        iIEBitmap.Resample(1000, 1000, rfLanczos3, True, True);
        { Add the bitmap }
        ImageEnMView1.AppendImage(iIEBitmap);
        StatusBar1.Panels[0].Text :=
          ExtractFileDir(OpenPictureDialog1.FileName);
        StatusBar1.Panels[1].Text :=
          ExtractFileName(OpenPictureDialog1.FileName);
        StatusBar1.Panels[2].Text := 'Width: ' + IntToStr(iIEBitmap.Width);
        StatusBar1.Panels[3].Text := 'Height: ' + IntToStr(iIEBitmap.Height);
      finally
        iIEBitmap.Free;
      end;
    finally
      iImageENIO.Free;
    end;
  end;
end;