http://docwiki.embarcadero.com/Libra...tils.CharInSet
Revisa hacer un Type Cast con AnsiChar
Código Delphi
[-]if CharInSet (AnsiChar(UpCase(Key)), ['N','S']) then
No tengo delphi ahora para poderte confirmar, pero revisa tambien la opcion de AnsiUpperCase en lugar de UpCase
Código Delphi
[-]if CharInSet (AnsiUpperCase (Key), ['N','S']) then
El tema es que todas las funciones que recibian parametros String o Char cambiaron para WideString, AnisChar, AnsiString...
saludo,