Cómo te va Hunter!
No sé para que te vas a complicar la vida tratando de validad la entrada de números en un single line edit (para eso están los editmask), pero si así lo quieres..., lo que puedes hacer es que en el evento KeyPress del Single Line Edit preguntar si el contenido es numérico (if(isnumber(txt_1.text)then)), sino fuera así limpia el control o le corta un caracter del lado derecho (txt_1.text="" ó rtrim(txt_1.text)).
Espero que te sirva de algo, pero no te compliques!
O.K.