Prueba a escibir un function que te devuelva true o false si es o no es un carácter. En ese function podrías poner
Código Delphi
[-]
function TeclaAceptada(tecla:string):boolean;
begin
If Tecla = "1" Then
begin
Result := False;
end;
(...)
No he podido comprobar el código pues estoy algo liado con C y estoy sólo echando una mirada al club a ver como anda.