ImageEnMView := TImageEnMView.create(Nil);
      DocumentStream := TMemoryStream.create();
      Try
        ImageEnMView.Clear;

        (QrDocuments.Fieldbyname('Documents') as TBlobField).SaveToStream(DocumentStream);
        DocumentStream.Position := 0; // <<<< ADDED THIS

        ImageEnMView.MIO.LoadFromStreamTIFF(DocumentStream);
        ImageEnMView.MIO.Update;
        If not(QrDocuments.Fieldbyname('Documents').IsNull) Then
          For i := 0 To ImageEnMView.ImageCount - 1 Do
          Begin
            ImageEnMView.SelectedImage := i;
            Page := TfrxReportPage.create(frxReport);
            Page.CreateUniqueName;

            If ImageEnMView.Bitmap.Width > ImageEnMView.Bitmap.Height Then
              Page.Orientation := poLandscape
            Else
              Page.Orientation := poPortrait;
            Page.LeftMargin := 0;
            Page.RightMargin := 0;
            Page.TopMargin := 0;
            Page.BottomMargin := 0;
            Image := TfrxPictureview.create(Page);
            Image.CreateUniqueName;
            Image.Align := baclient;
            Image.Picture.Assign(ImageEnMView.Bitmap);
          End;
      Finally
        DocumentStream.Free;
        ImageEnMView.Free;
      End;

quote:

---

procedure TImageEnMView.CheckSelectedImageIsVisible;
// NPC: 23/11/11
var
info: PIEImageInfo;
iViewX, iViewY : integer;
begin
if (fSelectedItem >= 0) and (fMultiSelecting = False) then
begin
iViewX := fViewX;
iViewY := fViewY;
info := PIEImageInfo(fImageInfo[fSelectedItem]);

if info^.X < iViewX then
iViewX := info^.X
else if (Parent <> nil) then
if info^.X + fThumbWidth > iViewX + ClientWidth then
iViewX := info^.X - ClientWidth + fThumbWidth;

if info^.Y < iViewY then
iViewY := info^.Y
else if (Parent <> nil) then

if info^.Y + fThumbHeight > iViewY + ClientHeight then
iViewY := info^.Y - ClientHeight + fThumbHeight;

SetViewXY(iViewX, iViewY);
end;
end;

---

procedure TImageEnMView.CheckSelectedImageIsVisible;
// NPC: 23/11/11
var
  info: PIEImageInfo;
  iViewX, iViewY : integer;
begin
  if assigned(Parent) and (fSelectedItem >= 0) and (fMultiSelecting = False) then
  begin
    iViewX := fViewX;
    iViewY := fViewY;
    info := PIEImageInfo(fImageInfo[fSelectedItem]);

    if info^.X < iViewX then
      iViewX := info^.X
    else if info^.X + fThumbWidth > iViewX + ClientWidth then
      iViewX := info^.X - ClientWidth + fThumbWidth;

    if info^.Y < iViewY then
      iViewY := info^.Y
    else if info^.Y + fThumbHeight > iViewY + ClientHeight then
      iViewY := info^.Y - ClientHeight + fThumbHeight;

    SetViewXY(iViewX, iViewY);
  end;
end;