anchor.diff:    Result := FItemInfo.ExtraField;
   end;
   { -------------------------------------------------------------------------- }
  -function TAbZipItem.GetFileComment : AnsiString;
  +function TAbZipItem.GetFileComment : string;
   begin
     Result := FItemInfo.FileComment;
   end;
  
positive.code: 
      FExtraField.LoadFromStream( Stream, ExtraFieldLength );
  
      SetLength( FFileComment, FileCommentLength );
      if FileCommentLength > 0 then
        Read( FFileComment[1], FileCommentLength );
    end;
    if not IsValid then
      raise EAbZipInvalid.Create;
  
negative.code:       write SetDiskNumberStart;
      property ExtraField : TAbExtraField
        read GetExtraField;
      property FileComment : string
        read GetFileComment
        write SetFileComment;
      property HostOS: TAbZipHostOS
  