anchor.diff:  begin
     Result := '';
     for I := 0 to fCount - 1 do
  -    if fLocaleList[i].TranslatorCredit <> '' then //e.g. English has no credits
  -      Result := Result + fLocaleList[i].Title + ' - ' + fLocaleList[i].TranslatorCredit + '|';
  +    if fLocaleList[I].TranslatorCredit <> '' then //e.g. English has no credits
  +      Result := Result + fLocaleList[I].Title + ' - ' + fLocaleList[I].TranslatorCredit + '|';
   end;
   
   
  
positive.code:   SL.LoadFromFile(aFile);
  
    for I := 0 to SL.Count - 1 do
      if ParseLine(SL[I], MyLocale) then
      begin
        inc(fCount);
        if fCount > Length(fLocaleList) then SetLength(fLocaleList, fCount + 8);
        fLocaleList[fCount-1] := MyLocale;
      end;
  
    SL.Free;
  
negative.code: var
    SL: TStringList;
    I: Integer;
    NewLocale: TKMLocaleInfo;
  begin
    Assert(FileExists(aFile), 'Locales file could not be found: ' + aFile);
  
  