Delphi-Quellcode:
function Uebersetzen(const inw: String): String;
var
S: String[3];
begin
ZeroMemory(@S, SizeOf(S), 0); // s := #0#0#0;
S := AnsiString(inv);
case LongInt(S) of
...
Der Grund ist, daß die ungenutzen Zeichen undefiniert und somit zufällig sind.
Womit die Integer nicht eindeutig sind, was schlecht ist, für den Vergleich.