[jafera]

Empezado por gatosoft

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

Muchas gracias.

Esta opcion es la que ha funcionado perfectamente, ya no da el "warning" al compilar

Saludos

Josep