anchor.diff:  begin
     inherited Create;
   
  -  fGroups := TList.Create;
  +  fGroups := TKMList.Create;
   end;
   
   
  
positive.code: 
  
  function TKMUnitGroups.GetGroupByID(aID: Integer): TKMUnitGroup;
  var i:integer;
  begin
    Result := nil;
    for i := 0 to Count-1 do
      if aID = Groups[i].ID then
      begin
        Result := Groups[i];
        exit;
      end;
  end;
  
  
negative.code: 
    TKMUnitGroups = class
    private
      fGroups: TKMList;
  
      function GetCount: Integer;
      function GetGroup(aIndex: Integer): TKMUnitGroup;
  