Hola jafera.
Parece que yo también optimicé sin pensar mucho...
Debería haber sido:
Código Delphi
[-]
procedure TF_ModulDades.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if ((Sender as TDBGrid).SelectedField.FieldName = 'Nombre_del_Campo') then
if(UpCase(Key) in ['N','S']) then
Key:= UpCase(Key)
else
Key:= #0;
end;
Saludos.