Wenn man diese Version verwenden möchte, würde ich lieber TryStrToInt verwenden, als mutwillig Exceptions zuzulassen.
Delphi-Quellcode:
var i : Integer;
begin
if not tryStrToInt(Edit1.Text, i) then
begin
showMessage('Zahlen eingeben');
end;
end;
Wobei man bei den StrToInt-Dingern beachten muss, dass z.B. '$A' akzeptiert wird.
Daher würde ich doch die einzelnen Zeichen prüfen, wie oben schon vorgeschlagen, oder eine Komponenten verwenden, die nur die Eingaben aktzeptiert, die erlaubt sind (z.B. TMaskEdit).
Gruß,
Jens