codice:
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?