anchor.diff:    I: Integer;
   begin
     for I := 0 to fCount - 1 do
  -    if fLocaleList[i].Code = aCode then
  +    if fLocaleList[I].Code = aCode then
       begin
  -      Result := fLocaleList[i];
  +      Result := fLocaleList[I];
         Exit;
       end;
     Assert(False, aCode + ' is not a valid Locale');
  
positive.code: var
    SL: TStringList;
    I: Integer;
    MyLocale: TKMLocaleInfo;
  begin
    Assert(FileExists(aFile), 'Locales file could not be found: ' + aFile);
  
  
negative.code:   SL.LoadFromFile(aFile);
  
    for I := 0 to SL.Count - 1 do
      if ParseLine(SL[I], NewLocale) then
      begin
        if fCount >= Length(fLocaleList) then
          SetLength(fLocaleList, fCount + 8);
        fLocaleList[fCount] := NewLocale;
        Inc(fCount);
      end;
  
    SL.Free;
  