this list was too big by mistake

Author: georges-hatem

entries/ghatem-fpc/src/OneBRC.lpr

@@ -569,7 +569,7 @@ procedure TOneBRC.GenerateOutput;
 begin
   vStream := TStringStream.Create;
   vStations := TStringList.Create;
-  vStations.Capacity := cDictSize;
+  vStations.Capacity := cNumStations;
   vStations.UseLocale := False;
   try
     vStations.BeginUpdate;