* Fix bug #23954

git-svn-id: trunk@28660 -

rtl/objpas/sysutils/sysstr.inc

@@ -2294,7 +2294,7 @@ Var
                     end;
                   If thousand And (Digits[N]<>'-') Then
                     Begin
-                    If (DigitExponent Mod 3 = 0) And (DigitExponent>0) and (N > 1) Then
+                    If (DigitExponent Mod 3 = 0) And (DigitExponent>0) Then
                       Begin
                       Buf[0] := FormatSettings.ThousandSeparator;
                       Inc(Buf);