Problemas con Ejecutar comando cmd y capturar su salida

[JoAnCa]

Hola a todos

Pues buscando como ejecutar un comando con el CMD y obtener la salida para almacenarla en una variable, me encontré con este truco de seoane, pero parece que como es algo antiguo y para delphi 7 o anterior, en delphi XE7 no funciona como debe ser.

En la salida en lugar de mostrar el resultado como debe ser, muestra letras chinas

Por ejemplo:
Esta salida

dir /a:-d /s /b "o:\" | find /c ":\"

me debe dar 67 y me da 㜶਍

un dir C: me devuelve esto:

䔠潶畬敭敤氠⁡湵摩摡䌠攠⁳楓瑳浥ൡ
䔠ꍮ敭潲搠⁥敳楲⁥敤潶畬敭獥›㉄䌸䘭㘶ല
਍䐠物捥潴楲敤挠尺਍਍㔱〯⼸〲〲†〱㐺‴⹡洠*†㰠䥄㹒†††††䵁D਍㤱〯⼷〲〲†ㄱ㈺‹⹰洠*†㰠䥄㹒†††††湉整l਍㘰〯⼹〲〲†〱㐺‷⹰洠*†㰠䥄㹒†††††䵋汐祡牥਍㜰ㄯ⼲〲㤱†㔰ㄺ‴⹡洠*† 㰠䥄㹒†††††敐晲潌獧਍㐰〯⼹〲〲†㠰㐺′⹰洠*†㰠䥄㹒†††††牐杯慲楆敬൳
㔰〯⼹〲〲†㤰㌺′⹰洠*†㰠䥄㹒†††††牐杯慲楆敬⁳砨㘸ഩ
〳〯⼵〲〲†㔰ㄺ‸⹰洠*†㰠䥄㹒†††††整灭਍㜱〯⼵〲〲†㔰㈺‵⹰洠*†㰠䥄㹒†††††獕牥൳
㠲〯⼸〲〲†㌰㈺‶⹰洠*†㰠䥄㹒†††††楗摮睯൳
㠲〯⼸〲〲†㔰㐺‷⹰洠*†㰠䥄㹒†††††慸灭൰
†††††††〠愠捲楨潶⁳††††††〠戠瑹獥਍†††††††〱搠物⁳㈠ⰳ㐲ⰰ㠶ⰳ㈵‰祢整⁳楬牢獥਍

Que cambios se deben hacer para que muestre los resultados de forma correcta?