Tiff : TIETIFFHandler;

//here I pass the path of the tif file to the procedure
LoadTiffFile(CaminhoImgDoc)

//procedure to open the file	
procedure TfrmConsCert.LoadTiffFile(const Filename: string);
var
  I, idx: Integer;
begin
  if IEFilenameInExtensions( Filename, '*.tif;*.tiff' ) = False then
    exit;
  try
     // in some files, here it shows the error "Out of Memory"
     Tiff.ReadFile( FileName );
     ImageEnMView1.LockUpdate();

     ImageEnMView1.Clear;
     for I := 0 to Tiff.GetPagesCount - 1 do begin
       idx := ImageEnMView1.AppendImage();
       ImageEnMView1.ImageID[ idx ] := 99;  
     end;
     ImageEnMView1.SelectedImage := 0;
     ImageEnMView1.UnlockUpdate();
  except
     \\this way, files with an "Out of Memory" error will open normally
     ImageEnMView1.LoadFromFileOnDemand(FileName);
  end;
end;