Código Delphi [-] if CharInSet (UpCase(Key), ['N','S']) then
if CharInSet (UpCase(Key), ['N','S']) then
Código Delphi [-] if(UpCase(Key) in ['N','S']) then
if(UpCase(Key) in ['N','S']) then