Hai provato ad utilizzare un insieme (set) letterale?

Una scrittura di questo tipo:

codice:
if not(C in ['0'..'9']) then.........
Crei al volo un set letterale che contiene tutti i caratteri numerici e verifichi se il carattere non corrisponde a tale insieme (quindi non è valido).

Per il tasto ESC, come fai a gestirlo avendo come input un ReadLn?

Scusa, ma le mie conoscenze di Turbo Pascal svaniscono nei ricordi...

Ciao!