[delphi.com.ar]

Empezado por roman

¿Y esto?

Código Delphi [-]
UpCase(Nombre[i]) in ['0'..'9','A'..'Z']

Aunque para considerar también la 'ñ' creo que se necesitará así:

Código Delphi [-]
AnsiUpperCase(Nombre[i]) in ['0'..'9','A'..'Z', 'Ñ']

Una opción "mas económica" para el procesador, puede ser guardar el valor en mayúsculas de la variable Nombre y no convertir cada caracter.

Saludos!