With any GNAT versions so far after CE 2021, GWindows.Common.Dialogs' procedure Get_Directory raises Program_Error at line 1042 (call to SHGetPathFromIDList).
This issue seems to be similar to bug #16.