FViewer.PdfViewer.PageIndex := APageNum - 1;
    ACount := FViewer.PdfViewer.Objects.Count;
    for i := 0 to ACount - 1 do
    begin
      AObj := FViewer.PdfViewer.Objects[i];
      if (AObj.ObjectType = ptText) then
      begin
        msgbox(Format( 'Info: %s, %0.2f, %0.2f, %0.2f, %0.2f',
          [ AObj.Text, AObj.X, AObj.Y, AObj.Width, AObj.Height ]));
        msgbox(Format( 'Matrix: %0.2f, %0.2f, %0.2f, %0.2f, %0.2f, %0.2f',
          [ AObj.matrix.a, AObj.matrix.b, AObj.matrix.c, AObj.matrix.d, AObj.matrix.e, AObj.matrix.f ]));
      end;
    end;