From d486463bc1f0a9aaa782da93eda78a9be3c5b17e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Sat, 9 Nov 2024 09:58:12 +0100
Subject: [PATCH] * Test for #41002

---
 packages/rtl-objpas/tests/tests.rtti.value.pas | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/packages/rtl-objpas/tests/tests.rtti.value.pas b/packages/rtl-objpas/tests/tests.rtti.value.pas
index 4c4a41b4fa..1f7c54468a 100644
--- a/packages/rtl-objpas/tests/tests.rtti.value.pas
+++ b/packages/rtl-objpas/tests/tests.rtti.value.pas
@@ -52,6 +52,7 @@ Type
     procedure TestMakeGenericWideChar;
 
     procedure TestFromOrdinal;
+    Procedure TestTryCastUnicodeString;
   end;
 
   { TTestValueArray }
@@ -1533,6 +1534,17 @@ begin
   CheckException({$ifdef fpc}@{$endif}MakeFromOrdinalString, EInvalidCast);
 end;
 
+procedure TTestValueSimple.TestTryCastUnicodeString;
+
+var
+  S: string;
+  V, V2: TValue;
+begin
+  S := 'str';
+  V := S;
+  CheckTrue(V.TryCast(TypeInfo(UnicodeString), V2),'Cast OK');
+end;
+
 { TTestValueArray }