(Delphi 7) Errore In Tedit

[camaleonteplus]

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?

[nifriz]

Ciao,
prova così!

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
const
  Numbers = '0123456789';
begin
  if StrScan(Numbers, Key) = nil
   begin
    MessageBeep(20);
   ShowMessage('Errore');   
   key := #0;
  end;
end;

[EDIT]
Ho notato che nel tuto esempio non c'è il ";" dopo ShowMessage, è solo un errore di copia?

[camaleonteplus]

era un errore di copia. ho provato il tuo codice ma mi da sul secondo begin questo errore:
[Error] Email.pas(525): Missing operator or semicolon

[camaleonteplus]

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;