Try-Except geht auch, aber Fehler garnicht erst enstehen zu lassen ist viel schöner:
Im OnKeyPress des Edits überprüfen, ob die eingegebene Taste(Key) erlaubt ist.
Falls sie nicht erlaubt ist einfach Key #0 zuweisen
Delphi-Quellcode:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
Var Zahlen:set of Char;
begin
Zahlen:=['1','2','3','4','5','6','7','8','9','0'];
If not (Key in Zahlen) Then
Key:=#0;
end;