From 893e9166cd762b505bb8cd72ce7f999a1b5e97b3 Mon Sep 17 00:00:00 2001
From: Bergmann89 <info@bergmann89.de>
Date: Tue, 6 Oct 2015 21:06:35 +0200
Subject: [PATCH] * some changes to support libTextSuite

---
 utsTextSuite.pas | 2 +-
 utsTypes.pas     | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/utsTextSuite.pas b/utsTextSuite.pas
index c04f7eb..e9ae094 100644
--- a/utsTextSuite.pas
+++ b/utsTextSuite.pas
@@ -405,7 +405,7 @@ type
   private
     fCodePage: TtsCodePage;
     fCodePageDefault: WideChar;
-
+  protected
     fRenderers: TObjectList;
     fGenerators: TObjectList;
   private
diff --git a/utsTypes.pas b/utsTypes.pas
index 13e4c73..8595f90 100644
--- a/utsTypes.pas
+++ b/utsTypes.pas
@@ -10,6 +10,7 @@ uses
   Classes, SysUtils;
 
 type
+  {$Z4}
   TtsCodePage = (
     tsUTF8,
     tsISO_8859_1,