Обработчик исключений Delphi

[xxxPascalxxx]

Здравствуй форум, прошу помочь.
Как сделать так, что бы если в Edit будет введена буква или число не принадлежащее диапазону от 1 до 100000 то при нажатии на кнопку выдавалось сообщение об ошибке и Edit стал пуст? Я попытался сделать, но не получилось... Погоите пожалуйста, заранее спасибо.
Вот мой код по нажатию на кнопку:

procedure TForm1.FormirClick(Sender: TObject);
 var   i,k:integer;  s:array [1..100000] of integer;
begin
   randomize;
   try
n:=StrToInt(E1.text);    {Размерность массива}
for i:=1 to 100000  do
  if n=s[i] then
    k:=1;

if k<>1 then Raise
   EInOutError.Create('Введите число в диапазоне от 1 до 100000');
   Except
    on EInOutError do begin
    E1.text:=''; end;  end;

 Massiv.Lines.Clear;      {Очищаем memo}
for i:=1 to n do
a[i]:=random(10*n+1);      {Формируем рандомный массив размерностью n*10}
Showmessage('Массив сформирован');
end;

[Mitriy08]

Ну для начала можно сделать так, чтобы в Edit нельзя было вводить буквы.
Это можно сделать с помощью использования сторонних компанентов либо
На событие OnKeyPress:

    if not ( Key in ['0'..'9'] ) then Key := #0 ;

Дальше просто проверяем диапазон вхождения числа и все...

[xxxPascalxxx]

Большое спасибо.

[xxxPascalxxx]

Хмм, а если я захочу изменить размерность, нельзя стирать цифры в Edit. И как диапазон вхождения проверить, я сравнивал число n с элементами массива от 1 до 100000 где все они расположены по возрастанию, сравнивать с множеством не получилось, выдавал ошибку что множество состоит больше чем из 256 элементов... С массивом выдаёт ошибку во время выполнения программы. Скрин ошибки прикрепил.

[Somebody]

Сообщение от xxxPascalxxx

for i:=1 to 100000  do
  if n=s[i] then
    k:=1;

Ужс
if (n<1) or (n>100000) then raise .....;

   Except
    on EInOutError do begin

[/CODE]

Ещё надо обрабатывать EConvertError, который может создать StrToInt.

Сообщение от Mitriy08

На событие OnKeyPress:

    if not ( Key in ['0'..'9'] ) then Key := #0 ;

Копировать-вставить, и в Edit'е будет всё что угодно. Тогда не мешало бы ещё вставку из буфера ловить.

[vovk]

угу и разрешить в OnKeyPress не только цифры но и хотябы бэкспейс и делит