Cuando se programa con Delphi 7, solo se pueden ingresar números en un cuadro de texto, y cuando el número ingresado es incorrecto, se puede modificar usando la tecla Retroceso.

Dado que el valor ASCII de Retroceso es 8, puede ser de la siguiente manera

if (keylt; gt; #46) y ((key lt; #48) o (key gt ; #57)) y (key lt; gt; #8) entonces

//Si la entrada no es un número o punto decimal (#46 representa el punto decimal)

comenzar

key:=#0; //Cancelar el contenido de entrada (#0 representa un valor nulo)

showmessage('¡Error de entrada! ¡Ingrese un número!'); /Emitir un mensaje rápido

end;