Fíjate en el procedimiento Val:
Código Delphi
[-]
procedure Val(S; var V; var Code: Integer);
S es la cadena que quieres probar, por ejemplo Edit1.Text. Val intenta convertir S en un número y lo coloca en V. Si S no representa un número entonces Code será distinto de cero e indicará el prmer carcater de S que no es número.
// Saludos