Fecha de publicación: Aug 12, 2021 1:35:47 AM
Para solucionar los errores en los cuadros de texto y que solo permita números una de las opciones son las siguientes:
Usar una función que ya maneja el error sin generar una excepción, esta función intenta convertir el texto a entero, si hay algún error, devuelve el valor predeterminado pasado justo después, en este caso devuelve 0 si hay algún error.
StrToIntDef(Edit1.Text, 0);
por otra parte podemos usar un Try
Otra opción es colocar en el evento ONKEYPRESS del cuadro de texto el siguiente código que únicamente permite números.
If not(Key in ['0'..'9','.',#8]) then begin Key:=#0; end;