* Better fix for r16952 from Ladislav Karrach from bug report 18388

git-svn-id: trunk@16979 -

rtl/objpas/fmtbcd.pp

@@ -1719,7 +1719,7 @@ IMPLEMENTATION
             then begin
 {$ifndef use_ansistring}
               Inc ( l );
-              result[1] := '-';
+              result[l] := '-';
 {$else}
               result := result + '-';
 {$endif}
@@ -1728,10 +1728,7 @@ IMPLEMENTATION
             then begin
 {$ifndef use_ansistring}
               Inc ( l );
-              if Neg then
-                result[2] := '0'
-              else
-                result[1] := '0'
+              result[l] := '0';
 {$else}
               result := result + '0';
 {$endif}