From cc010ba63cacb894740e499a83aa50867f92dda2 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Mon, 22 Apr 2013 21:56:21 -0400
Subject: [PATCH] strPadL fix

---
 mdl/m_strings.pas | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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;