Delphi - (Delphi 7) Errore In Tedit

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not( key in['0'..'9', #8] ) then
  begin
    MessageBeep(20);
ShowMessage('Errore')    
key := #0;
  end;
end;

In questo caso dovrebbe permettermi solo l'inserimento di numeri da 0 a 9. Invece non funziona non mi da nessun errore. Come posso risolvere questo problema?

Anche se sul mio PC non mi da segnalazioni di errori di digitalizzazione sembra che il codice funziona e posto l'alternativa per il testo.

procedure TForm1.PCKeyPress(Sender: TObject; var Key: Char);
begin
if not( key in['a'..'z', #10] ) then
begin
MessageBeep(20);
ShowMessage('Digita Solo Carateri');
key := #0;
end;
end;