anchor.diff:      decoder.Destroy ;
       End ;
     End ;
  -End.
  +End.
  
positive.code: 
    count := strm.read (buffer, sizeof (buffer)) ;
    If count < Sizeof (Buffer) Then
      Exit ;
  
    If (Buffer [1] = 137)
        And (Buffer [2] = 80)
  
negative.code:     Result := GifImage 
    Else if (Buffer [1] = Ord ('B')) And (Buffer [2] = Ord ('M')) Then
      Result := BmpImage ;
  
    strm.Free;
    End ;
  
  Function ReadImage (Filename : String ; image : TBitmapImage ;
  