Si no me equivoco lo que te está recomendando es que hagas
Código Delphi
[-]
if CharInSet (UpCase(Key), ['N','S']) then
en lugar de
Código Delphi
[-]
if(UpCase(Key) in ['N','S']) then
CharInSet está en sysutils por lo que si no lo tuvieras en el uses tendrías que añadirla.