anchor.diff:        write SetDiskNumberStart;
       property ExtraField : TAbExtraField
         read GetExtraField;
  -    property FileComment : AnsiString
  +    property FileComment : string
         read GetFileComment
         write SetFileComment;
       property HostOS: TAbZipHostOS
  
positive.code:       read FExternalFileAttributes write FExternalFileAttributes;
      property RelativeOffset : LongWord
        read FRelativeOffset write FRelativeOffset;
      property FileComment : AnsiString
        read FFileComment write FFileComment;
    end;
  
  
negative.code: 
      FExtraField.LoadFromStream( Stream, ExtraFieldLength );
  
      if FileCommentLength > 0 then
      begin
        SetLength(pBytes, FileCommentLength);
        Read(pBytes, Length(pBytes));
        FFileComment := TEncoding.ANSI.GetString(pBytes);
      end
      else
        FFileComment := '';
    end;
    if not IsValid then
      raise EAbZipInvalid.Create;
  