[[AgustinOrtu]]

Estas comparando strings con caracteres, por eso el error

Proba asi, asumiendo que en Prueba tenes un string con un solo caracter

Código Delphi [-]
if not (CharInSet(Key,['0' .. '9', Prueba[1] , #8, #27]))