test failed ```pascal CheckTrue('test_str' = TValue.{$ifdef fpc}specialize{$endif} From<ShortString>('test_str') .{$ifdef fpc}specialize{$endif} Cast<AnsiString> .{$ifdef fpc}specialize{$endif} AsType<AnsiString>, 'TValue.From<shortring>.Cast<AnsiString> failed'); ``` TValue.CastStringToString does not handle casting TO tkAString, but returns True. The issue is similar to #41002 but 41002 is about casting FROM AnsiString patch and test [Patch.patch](/uploads/bc4934654b1d4a127a8f0c683697363d/Patch.patch)