Private Function pGetPagesCount(ByRef Image As MemoryStream, Format As IEFileFormats) As Integer
        Dim Pages As Integer
        Dim IEM As IEImageList = Nothing
        Dim IETifH As IETIFFHandler = Nothing  
        Try
            Select Case Format
                Case IEFileFormats.TIFF
                    IETifH = New IETIFFHandler
                    IETifH.Read(Image)
                    Pages = IETifH.GetPagesCount
                    IETifH.FreeData()
                Case IEFileFormats.GIF
                    IEM = New IEImageList
                    IEM.LoadImages(Image, Format)
                    Pages = IEM.ImageCount
                    IEM.Clear()
                Case Else
                    Pages = 1
            End Select
        Catch ex As Exception
            Throw New Exception("GetPagesCount: " & ex.Message)
        Finally
            If IEM IsNot Nothing Then
                IEM.Dispose()
                IEM = Nothing
            End If
            If IETifH IsNot Nothing Then IETifH = Nothing
        End Try
        Image.Seek(0, SeekOrigin.Begin)
        Return Pages

    End Function

procedure Tfmain.BtnTestClick(Sender: TObject);
var
  IETifH : TIETIFFHandler;
begin
  IETifH := TIETIFFHandler.Create;
  IETifH.ReadFile( 'D:\Testing_Multimedia\TIFF\multipage-DP1076975.tif' );
  ShowMessage( IntToStr( IETifH.GetPagesCount ));
  IETifH.Free;
end;