¿Cómo reconocer si los caracteres 'Ñ' y 'ñ' están en una cadena?

[rrf]

Hola a tod@s.

Tengo un pequeño problema con el reconocimiento de los caracteres 'Ñ' y 'ñ' en una cadena y lo expongo por si me puedes ayudar.

En Lazarus 2.2.6 , en una función que recibe como parámetro un String de texto (cadena), se leen todos los caracteres de esa cadena, actuando de forma diferente en función de cual es el caracter leido.

Todo funciona normalmente con los caracteres del alfabeto inglés; aunque no reconoce la comparación con los caracteres 'Ñ' o 'ñ'.

Este es el código que utilicé:

Código Delphi [-]
  
for i := 1 to length(cadena) do
  begin
  
    case upcase(cadena[i]) of

        'A': valor := 1;
        'B': valor := 2;
    
    // Lo intenté en esta parte con 'Ñ' y no funcionó
    
        'Y': valor := 10;
        'Z': valor := 7;
    
    
    end;

       // Así tampoco funciona
    if ( (cadena[i] = 'Ñ') or (cadena[i] = 'ñ') )
    then
      begin
        // ...
      end;

  end;

¿Sabes como se puede saber si las letras 'ñ' o 'Ñ' aparecen en el String?.

Muchas gracias de antemano.

Saludos.