Das
Key := #0;
wird auch immer aufgerufen, so müßte es heißen:
Delphi-Quellcode:
procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9', Char(VK_BACK)]) then
begin
showmessage('Nur Zahlen');
Key := #0;
end;
end;