[mantikora]

Я чет никак не пойму эти ошибки, сделал вот так(код ниже). Включил в обработчике range checking, то оно работало но при том еще и в других местах ошибки выдавало где не было их, потом вдруг перестало и не там ни там не выдает, уже запутался, сеейчас вот этот код(вырезал кусок потому что прога очень большая) уже не выдает ошибки если я введу в эдитах 11 иди 50 Подскажите пожалуйста в чем дело..

Код:

type
  T10 = 0..10;

.....


procedure TForm1.Button1Click(Sender: TObject);
var   
kc, kv, kq: real;  
c, v, q: real;   //cena, ydobstvo, cena
kv1, kv2, kv3, kv4, kv5, kv6: real;  
kq1, kq2, kq3, kq4, kq5, kq6: real;  

kvv1, kvv2, kvv3, kvv4, kvv5, kvv6: T10;    //dla normirovania
kqq1, kqq2, kqq3, kqq4, kqq5, kqq6: T10;
kvv0, kqq0, kcc0: T10; //dla norm glob koeficientov
kvs, kqs , kcvq:integer;
begin

 Try
kcc0:=strtoint(edit11.text);
kvv0:=strtoint(edit12.text);
kqq0:=strtoint(edit13.text);
kcvq:=kcc0+kvv0+kqq0;

kc:=kcc0/kcvq;
kv:=kvv0/kcvq;
kq:=kqq0/kcvq;

kvv1:=strtoint(edit1.text);
kvv2:=strtoint(edit2.text);
kvv3:=strtoint(edit3.text);
kvv4:=strtoint(edit4.text);
kvv5:=strtoint(edit5.text);
kvv6:=strtoint(edit15.text);


kqq1:=strtoint(edit6.text);
kqq2:=strtoint(edit7.text);
kqq3:=strtoint(edit8.text);
kqq4:=strtoint(edit9.text);
kqq5:=strtoint(edit10.text);
kqq6:=strtoint(edit16.text);

  except
    on E : Exception do
      ShowMessage(E.ClassName+' ошибка, с сообщением : '+E.Message);
  end;

........