Как я уже говорил, вся проблема у теба в ф-ции StrToInt(Edit1.Text).
Если неуверен, что в текстовых полях 100% - число, то или используй ф-цию StrToIntDef(Edit1.Text,{значение по умолчанию}), или предварительно конвертируй значения полей в отдельный массив Box1 с помощью процедуры Val(Edit1.Text,Box1[i],err), и если err<>0 то отменять действие...
|