AyUda !!EXAMEN de SQL

[ricardocid]

Estuve viendo la ayuda y sinceramente no es nada clara.
Por lo que interprete arme esta sentencia que me da error:

Código Delphi [-]
 
If KeyAscii = 13 Then 
  c_devuelto2.SetFocus
cadena := '0123456789' + Chr(8); 
If InStr(cadena, Chr(KeyAscii)) = 0 Then
  KeyAscii := 0;

Yo lo que tengo que hacer es que en el text solo me deje escribir numeros, agradeceria si alguien se tomara el tiempo de escribir el codigo
Con respecto a lo del apuro, pido disculpas. Y al ser nuevo en este foro no sabia algunas de las reglas con las cuales se manejan
Gracias por responder.