вычисление по предыдущему значению

[grafgrial]

Люди! Подскажите как написать
дано число в едит1
дано число в едит2
в едит3 вычисляется едит1*едит2
Сам вопрос:
А вот едит 4 должно вычислятся опред образом если в едит3 число ровняется до 80, то едит4.text=1. А если едит3= до 160, едит4.text=2.
едит3= до 240, едит4.text=3. и т.д
как это написать

[MaxNik2009]

if StrToInt(Edit3.Text) < 80 then
  Edit4.text:= '1';
if (StrToInt(Edit3.Text) >= 80) and (StrToInt(Edit3.Text) <160) then
  Edit4.text:= '2';

и т.д. мысль уловил?

[grafgrial]

А можно как нибудь до бесконечности, а то едит3 иногда выходит много и так на каждое число прописывать будет очень не рентабельно

[W0LF]

А математику вы в школе не учили? Делите ваше получившиеся число на 80 и округляете, затем его выводите в Edit4