Oder eine Komponente nehmen, welche nur Nummern annimmt.
In neueren Delphiversionen
TEdit.NumbersOnly, für ältere verstecken sich hier und da (in der
DP) Codes/Beschreibungen, um dieses zu erreichen.
Oder ein TMaskEdit, ein TEdit mit einem TUpDown, ein TSpinEdit uvm.
zum TryStrToInt:
Dieses ins OnExit (blos nicht in OnChange), dort dann die MessageBox anzeigen und danach vielleicht noch ein
(Sender as TComponent).SetFocus;
.