diff --git a/mdl/m_strings.pas b/mdl/m_strings.pas
index c7747d9..9c247aa 100644
--- a/mdl/m_strings.pas
+++ b/mdl/m_strings.pas
@@ -72,8 +72,9 @@ Begin
   If Length(Str) >= Len Then
     Result := Copy(Str, 1, Len)
   Else Begin
-    FillChar (TStr, Len, Ch);
-    SetLength(TStr, Len - Length(Str));
+    FillChar  (TStr[1], Len, Ch);
+    SetLength (TStr, Len - Length(Str));
+
     Result  := TStr + Str;
   End;
 End;