Como Validar un campo numerico?

[Ricsato]

Hola a todos, me gustaria que alguien me dijera como hacerle para validar la lectura de un dato numerico en un Edit, sin utilizar el Maskedit. Inserte el siguiente codigo:

try
kms:=Strtoint(Edit2.Text);
except
on E: EConvertError do
MessageDlg('Lectura no es valida!!!', mtError, [mbOk], 0);
end;

y cuando leo letras el programa se me revienta sin mostrarme este mensaje de error.

Gracias