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

[Inbox]

Лучше всего использовать функцию StrToIntDef

Я вставил
EdKolR[1]:=StrToIntDef(edit1.text);//ни чего не работает,
может какойнить модуль надо подключить?

[Inbox]

Компиляция не происходит

[Димарик]

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

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

используй
Try
....
except
защити блок от ошибок

[Jeni]

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

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

Во-первых, нельзя "нажать событие" - событие происходит/возникает в момент ввода символа.
Во-вторых, при очистке поля ошибки не произойдет, ошибка случится (точнее, может случиться) при обработке того, что записано в поле.
В-третьих, ты ведь сам писал
if edit9.text='' then edit9.text:='0';
т.е. при пустой строке записывал туда символ '0'. Я, как говорится, не против, но проще использовать функцию StrToIntDef(...) - она выдаст точно такой-же результат.

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

Я вставил EdKolR[1]:=StrToIntDef(edit1.text);//ни чего не работает,
может какойнить модуль надо подключить?

Не надо никакого модуля подключать. Я ведь как писал:
StrToIntDef(<текст>, <значение_по_умолчанию>)

т.е. тебе нужно написать:
EdKolR[1]:=StrToIntDef(edit1.text, 0)

В этом случае, если записано неверное число или вообще ничего не записано в EdKolR[1] будет записан 0 (ну или то значение, которое укажешь в качестве умолчания).

P.S. Желательно, хотя-бы изредка, заглядывать в справочную систему (становишься на функцию/тип/компонент и нажимаешь F1) или, хотя-бы, смотри сколько у функции параметров.

[Inbox]

Спасибо! буду использовать оба примера,
(У меня Delphi2007 хелпа в нем нет)