rango de numeros

[rogercito]

ya realize la validacion para permitir que ingrese numeros , con el siguiente codigo :
procedure TForm1.edit2keypress(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 me falta validar para que esos numeros que yo ingreso este correctois si estan en un rango entre 10 y 100 por Ej