anchor.diff:      fID: Cardinal;
       fPointerCount: Cardinal;
       fTicker: Cardinal;
  +    fOwner: TPlayerIndex;
       fMembers: TList;
       fOffenders: TList;
       fSelected: TKMUnitWarrior; //Unit selected by player in GUI
  
positive.code:   inherited;
    SaveStream.Write(fGroupType, SizeOf(fGroupType));
    SaveStream.Write(fID);
    SaveStream.Write(fMembers.Count);
    for I := 0 to fMembers.Count - 1 do
      SaveStream.Write(Members[I].ID);
  
negative.code:   inherited Create;
  
    fID := aID;
    fOwner := aOwner;
    fGroupType := UnitGroups[aUnitType];
    fMembers := TList.Create;
    fOffenders := TList.Create;
  