Почему ошибку выдаёт?

[Inbox]

Посмотрите что здесь не так?
Форму открывает но, дает предупреждение "is not valid integer.........."

procedure TForm1.BtnClick(Sender: TObject);
var
EdKolR:array[1..13] Of Integer;
MP,NV,NG,NKK,OKK22,OKK30,OKK45,OKK9 0:Integer;

begin

Form2.Showmodal;

EdKolR[1]:=StrToint(edit1.text);
EdKolR[2]:=StrToint(edit2.text);
EdKolR[3]:=StrToint(edit3.text);
EdKolR[4]:=StrToint(edit4.text);
EdKolR[5]:=StrToint(edit5.text);
EdKolR[6]:=StrToint(edit6.text);
EdKolR[7]:=StrToint(edit7.text);
EdKolR[8]:=StrToint(edit8.text);
EdKolR[9]:=StrToint(edit9.text);
EdKolR[10]:=StrToint(edit10.text);
EdKolR[11]:=StrToint(edit11.text);
EdKolR[12]:=StrToint(edit12.text);
EdKolR[13]:=StrToint(edit13.text);
MP:=(EdKolR[1]+EdKolR[2]+EdKolR[3]);
NV:=((EdKolR[3]*2)+(EdKolR[9]*2));
NG:=0;
NKK:=((EdKolR[3]*2)+(EdKolR[9]*2));
OKK22:=11;
OKK30:=1;
OKK45:=1;
OKK90:=1;
Form2.Label1.Caption:=floattostr(MP ); //не отображает
Form2.Label2.Caption:=floattostr(NV );//не отображает

[andrey4623]

Форма открыта модально. Сначала ты присваиваешь значения в форме, ничего не происходит. Но после закрытия она ЗАКРЫВАЕТСЯ, а не прячется, и получается, что Form2.Label1.Caption вроде как не существует, поэтому ошибка

[Inbox]

Я закоментировал
//Form2.Label1.Caption:=floattostr(MP ); //не отображает
//Form2.Label2.Caption:=floattostr(NV );//не отображает
Результат тот же, что то другое значит...........

[Inbox]

Вот сообщение какое выскакивает:

Proect name.exe raised exception class EConvertError message
"is not a valid integer value'.

[Inbox]

у меня ко всем едитам применим вот такой код:

procedure TForm1.Edit9Change(Sender: TObject);
var i: integer;
begin
if edit9.text='' then edit9.text:='0';
for i:=1 to 255 do if not (Chr(i) in (['0'..'9']))
then Edit9.Text:=StringReplace(Edit9.Tex t,Chr(i),'',[rfReplaceAll]);
If Edit9.Text=EmptyStr
Then
Edit9.Text:='0';
end;

Может из-заэтого???

[Inbox]

Если коментирую этот кусок то всё нормально работает
Что здесь не так
EdKolR[1]:=StrToint(edit1.text);
EdKolR[2]:=StrToint(edit2.text);
EdKolR[3]:=StrToint(edit3.text);
EdKolR[4]:=StrToint(edit4.text);
EdKolR[5]:=StrToint(edit5.text);
EdKolR[6]:=StrToint(edit6.text);
EdKolR[7]:=StrToint(edit7.text);
EdKolR[8]:=StrToint(edit8.text);
EdKolR[9]:=StrToint(edit9.text);
EdKolR[10]:=StrToint(edit10.text);
EdKolR[11]:=StrToint(edit11.text);
EdKolR[12]:=StrToint(edit12.text);
EdKolR[13]:=StrToint(edit50.text);

[Inbox]

Если коментирую этот кусок то всё нормально работает
Что здесь не так??
EdKolR[1]:=StrToint(edit1.text);
EdKolR[2]:=StrToint(edit2.text);
EdKolR[3]:=StrToint(edit3.text);
EdKolR[4]:=StrToint(edit4.text);
EdKolR[5]:=StrToint(edit5.text);
EdKolR[6]:=StrToint(edit6.text);
EdKolR[7]:=StrToint(edit7.text);
EdKolR[8]:=StrToint(edit8.text);
EdKolR[9]:=StrToint(edit9.text);
EdKolR[10]:=StrToint(edit10.text);
EdKolR[11]:=StrToint(edit11.text);
EdKolR[12]:=StrToint(edit12.text);
EdKolR[13]:=StrToint(edit50.text);

[Jeni]

Лучше всего использовать функцию StrToIntDef(<текст>, <значение_по_умолчанию>). Эта функция, в отличие от StrToInt, не генерирует исключительную ситуацию, если не может преобразовать текст, а просто возвращает значение по умолчанию.

[Jeni]

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

у меня ко всем едитам применим вот такой код:

Код какой-то сложный. Проще обрабатывать OnKeyPress

procedure XXXXX.KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in [#8, '0'..'9']) then Key := #0;
end;

Кроме цифр ничего вводится не будет. И указать эту процедуру в качестве обработчика для всех Edit'ов, а то судя по строке

if edit9.text='' then edit9.text:='0';

у тебя для каждого компонента используется свой обработчик!

[Inbox]

у тебя для каждого компонента используется свой обработчик!

Да.....у каждого.
Но в твоем предложении пользователь может очистить поле ввода и нажать событие, и будет ошибка, а вообще как при таких обстоятельствах вывести сообщение грамотно?