diff --git a/lcl/lresources.pp b/lcl/lresources.pp
index 3e936f62f9..62ff11a58f 100644
--- a/lcl/lresources.pp
+++ b/lcl/lresources.pp
@@ -798,6 +798,19 @@ end;
 
 { TDelphiWriter }
 
+{ MultiByte Character Set (MBCS) byte type }
+type
+  TMbcsByteType = (mbSingleByte, mbLeadByte, mbTrailByte);
+
+function ByteType(const S: string; Index: Integer): TMbcsByteType;
+begin
+  Result := mbSingleByte;
+  { ToDo:
+    if SysLocale.FarEast then
+      Result := ByteTypeTest(PChar(S), Index-1);
+  }
+end;
+
 constructor TDelphiWriter.Create(Stream: TStream);
 begin
   FStream:=Stream;