[lgarcia]

Hola

Con el procedimiento Val(Edit1.Text, I, Code) lo puedes lograr donde code para ser satisfactorio tiene que ser cero. En la ayuda de Delphi viene un ejemplo.

Saludos
Luis Garcia

_____________________________
La mejor manera de decir es hacer