procedure TForm1.Edit1.KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'0' .. '9':;
else Key:=Chr(0); {запрещенные символы не отображать}
end;