From 3d7f53993ac75e5efb3cf91299cd3db32e670d67 Mon Sep 17 00:00:00 2001
From: dkolmck <dkolmck@91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07>
Date: Mon, 31 Aug 2009 06:44:24 +0000
Subject: [PATCH] git-svn-id: https://svn.code.sf.net/p/kolmck/code@21
 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07

---
 mckCtrls.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/mckCtrls.pas b/mckCtrls.pas
index 41b3970..52586cb 100644
--- a/mckCtrls.pas
+++ b/mckCtrls.pas
@@ -11171,9 +11171,9 @@ begin
           Result := Result + '''' + S + Copy( B, 2, MaxInt )
         else
         if S <> '' then
-          Result := Result + 'PChar( ''' + S + ''' + ' + B + ')'
+          Result := Result + 'PKOLChar( ''' + S + ''' + ' + B + ')'
         else
-          Result := Result + 'PChar( ' + B + ' )';
+          Result := Result + 'PKOLChar( ' + B + ' )';
       end;
     end;
     if I < Items.Count-1 then