rango de numeros

[rogercito]

gracias por responder ... yo tengo este codigo :

procedure TForm1.edit10keypress(Sender: TObject; var Key: Char);
begin
if (key <#48) or (key >#57) then
if key<>#8 then
begin
beep;
showmessage('Solo Puede Ingresar Números');
key:=#0;
end;
end;

ahora necesito establecer un rango de numeros , cmo lo hago no entiendo gracias