anchor.diff:  end;
   
   
  -function TKMUnitGroup.GetOwner: TPlayerIndex;
  -begin
  -  Result := Members[0].Owner;
  -end;
  -
  -
   //Get current groups location (we use flagholder)
   function TKMUnitGroup.GetPosition: TKMPoint;
   begin
  
positive.code:     function GetNearestMember(aLoc: TKMPoint): TKMUnitWarrior; overload;
      function GetMemberLoc(aIndex: Integer): TKMPointExact;
      procedure SetUnitsPerRow(aCount: Word);
      function GetOwner: TPlayerIndex;
      procedure SetDirection(Value: TKMDirection);
      procedure SetCondition(aValue: Integer);
      procedure SetPosition(aValue: TKMPoint);
  
negative.code:   inherited;
    SaveStream.Write(fGroupType, SizeOf(fGroupType));
    SaveStream.Write(fID);
    SaveStream.Write(fOwner);
    SaveStream.Write(fMembers.Count);
    for I := 0 to fMembers.Count - 1 do
      SaveStream.Write(Members[I].ID);
  