diff --git a/packages/rtl-console/src/inc/video.inc b/packages/rtl-console/src/inc/video.inc
index 7928cd88f3..aee2ba58f4 100644
--- a/packages/rtl-console/src/inc/video.inc
+++ b/packages/rtl-console/src/inc/video.inc
@@ -313,8 +313,13 @@ begin
 end;
 
 function LegacyChar2ExtendedGraphemeCluster(const Ch: Char): UnicodeString;
+var
+  tmpS: RawByteString;
 begin
-  Result := Ch;
+  SetLength(tmpS, 1);
+  tmpS[1]:=Ch;
+  System.SetCodePage(tmpS,CP_OEMCP,False);
+  Result:=tmpS;
 end;
 
 procedure Enhanced2Legacy;