anchor.diff:  
   procedure TAbTarItem.SetGroupID(const Value: Integer);
   var
  -  S : string;
  +  S : AnsiString;
   //  I: Integer;
   begin
     if FTarItem.ItemReadOnly then { Read Only - Do Not Save }
  
positive.code: var
    T : TDateTime;
    UT : LongInt;
    TStr : string;
  begin
    if FTarItem.ItemReadOnly then { Read Only - Do Not Save }
      Exit;
  
negative.code: 
  procedure TAbTarItem.SetDevMajor(const Value: Integer);
  var
    S : AnsiString;
  begin
    if FTarItem.ItemReadOnly then { Read Only - Do Not Save }
      Exit;
    { Dev Major and Minor are Only used for AB_TAR_LF_CHR, AB_TAR_LF_BLK }
    { Otherwise they are stuffed with #00 }
    FTarItem.DevMajor := Value; { Store to the struct }
    S := PadString(IntToOctal(Value), SizeOf(Arr8));
    Move(S[1], PTarHeader.DevMajor, Length(S));
  