procedure TfrmConsCert.OpenPageForEditing();
begin
  if ( ImageEnMView1.ImageCount = 0 ) or
    ( ImageEnMView1.SelectedImage < 0 ) then
    exit;

  ImageEnView1.IO.Params.TIFF_ImageIndex := ImageEnMView1.SelectedImage;  
  ImageEnView1.IO.LoadFromFile( fCurrentFilename );
end;

procedure TfrmConsCert.UpdateTiffFile();
begin
  ImageEnView1.IO.Params.TIFF_ImageIndex := ImageEnMView1.SelectedImage;   
  ImageEnView1.IO.ReplaceFileTIFF( fCurrentFilename );
end;

public
    { Public declarations }
    Tiff : TIETIFFHandler;
    TiffPageIndex: Integer;
    procedure LoadCurrentTIFFPage();
    procedure LoadTiffFile(const Filename: string);
end;

procedure TfrmConsCert.LoadTiffFile(const Filename: string);
var
  I, idx: Integer;
begin
  Tiff.ReadFile( FileName );
  ImageEnMView1.LockUpdate();
  ImageEnMView1.Clear;
  for I := 0 to Tiff.GetPagesCount - 1 do
  begin
    // Add the ID's of all our source images
    idx := ImageEnMView1.AppendImage();
    ImageEnMView1.ImageID[ idx ] := 99;  // Note: Number here doesn't matter as long as it is > -1. We will actually use the frame index to know which page to load
  end;
  ImageEnMView1.SelectedImage := 0;
  ImageEnMView1.UnlockUpdate();

  LoadCurrentTIFFPage();

end;

procedure TfrmConsCert.LoadCurrentTIFFPage;
begin
  if ImageEnMView1.ImageCount = 0 then
    TiffPageIndex := -1
  else
    TiffPageIndex := ImageEnMView1.SelectedImage;

  tmrPreview.Enabled := False;
  tmrPreview.Enabled := True;
end;

procedure TfrmConsCert.tmrPreviewTimer(Sender: TObject);
begin
  tmrPreview.Enabled := False;
  if TiffPageIndex < 0 then
    image.Blank
  else
  begin
    ImageEnMView1.CopyToIEBitmap( TiffPageIndex, image.IEBitmap );
    image.Update;
  end;
end;


//call to open the file
LoadTiffFile(arquivo.tif)