Обработка данных и ошибок в Edit

[Intersap]

Пусть в поле Edit вводится число в пределах от Min до Max. Обработку ошибки от ввода букв я сделал, а не подскажите как сделать обработку чтобы если число не попадает в диапазон программа дальше не работала, а просила перезадать число. Спасибо. Тривиальный пример:

procedure TForm1.Button1Click(Sender: TObject);
var u: real; //
begin
Label1.Caption := ' ';
try
u := StrToFloat(Edit1.Text);
except
on EConvertError do
begin
Edit1.Text:='';
exit;
end;
end;
Label1.Caption := FloatToStr(u);
end;
end.

[_SERGEYX_]

u := StrToFloat(Edit1.Text);
if (u < 0) or (u > 100) then //не попадает в диапозон от 0 до 100