Código Delphi
[-]procedure Tnumerov.validarn(numero:String);
var Value: Cardinal; Code: Integer;
begin
Val(numero, Value, Code);
if LongBool(Code) then
showmessage('NO ES UN NUMERO')
else
begin
showmessage('ES UN NUMERO');
if Value < 10 then
showmessage('...menor a 10');
end;
end;
Revisar tambien la función
TryStrToInt