validar el ingreso a un Edit solo numeros

[Loreiev]

Hola, yo tengo un problema parecido, necesito validar un edit que puede tener sólo valores naturales desde el 1 hasta el 250 y quiero que, de ingresar un valor incorrecto lo corrija por 1. Hice este código:

Código Delphi [-]
 if not((Frmcartones.LbSelectorCarton.Text>=#49)and(Frmcartones.LbSelectorCarton.Text<=#57)) then Frmcartones.LbSelectorCarton.Text:=#49;
editformato;
EditarCarton(strtoint(LbSelectorCarton.Text));

Pero me salta el error:

EConverterror with message "is not a valid integer value"

porqué sigue apareciendo? no me estoy asegurando de que el valor sea entero?

El código del procedimiento EditarCarton es:

Código Delphi [-]
Procedure EditarCarton (num:integer);
var
i,j,k,l:integer;
Begin
 k:=0;
 l:= num - 1;
 for i:=0 to 8 do
 begin
  for j:=0 to 2 do
  begin
   numerocarton[l,k]:= strtoint(frmCartones.GrillaCarton.Cells[i,j]) ;
   inc(k);
  end;
 end;
end;