Und weil dort mit "falschen" Typen gearbeitet wurde, funktioniert dieser Code seit 2009 nicht mehr, da dort String = UnicodeString und PChar = PWideChar ist.
Deshalb schrieb ich ja auch
sinngemäß. Klar, dass das nicht 1:1 zu übernehmen ist.
Die obige Routine dürfte hierher stammen:
Console: OEM nach ANSI. Wurde hier also schon vor über 7 Jahren "falsch" veröffentlicht

, aber eventuell läßt sich ja aus dem Thread eine Lösung für das hier diskutierte Problem ableiten.