[Ildar-tsr]

Попробуй так:

Код:

t4:= 0;
if Edit4.Text <> '' then
  t4:= StrToInt(Edit4.text)+1;
Edit1.text:= IntToStr(t4);