Elaborar Clase Para Validar Un Dato De Un Edit

[[cHackAll]]

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