Delphi - DBEdit

Hola a todos: disculpen mi ignorancia: mi problema es el siguiente:

Tengo dos en un formulario, lo que quiero es que cuando edite un número cualquiera (por ejemplo 15) en el DBEdit1 y pase al siguiente DBEdit2, en el DBEdit1 salga 15 gms. (pero que el DBEdit1 no acepte letras, solo números).

En resumen lo que quiero es cada vez que introduzca un numero cualquiera al DBEdit1 y pase al DBEdit2 salga al lado del numero que introduje este texto (gms) (pero que el DBEdit1 no acepte letras, solo números).

Hola a todos Soy simón

Sé que hasta ahora nadie me ha contestado, pero estoy intentado hacerlo en el evento OnExit del DBEdit1 pero no me sale

Por favor sacarme del aprieto y disculpen mi ignorancia

En realidad es bastante sencillo

En los eventos de tu DBEdit 1 haz lo siguiente:

EN el evento OnKeyPress


Y en el evento OnChange del mismo edit pones

Un millón de gracias
Me salió correctamente, solo hice una pequeña modificando en el 2do código
Lo hice en el evento OnExit

if TryStrToFloat(DBEdit1.Text, valor) then
DBEdit1.Text := FloatToStr(valor) + ' gms';