comparar un string con un rango de valores

[locorez]

Wenas,
vereis, hace un rato que me estoy peleando con una cosa.
Quiero comparar que en el text de un edit, solo haya numeros. Para eso he creado esta funcion que no me va:

Código Delphi [-]
types
 rang= '0'..'9';
  numeric= set of rang;
...

function ValidaCadenes(cadena:string):boolean;
var
   i: integer;
   resultat: boolean;
   numeric1:numeric;
begin
    resultat:=true;
    for i:=0 to length(cadena) do begin
      if (cadena[i]=numeric1) then resultat:=false;
    end;
    result:=resultat;
end;

Como puedo hacerlo sin que me pete diciendome tipos incompatibles? porque he intentado pasar el string a entero con el strtoint y nada.
Saludos y gracias.