[GriLab]

Есть еще один вариант (я бы сделал так):

Код:

1 2 3 4 5 6 7 8 9 10

var   N: Integer; begin   if Edit4.Text <> '' then     N := StrToInt(Edit4.Text) + 1   else     N := 0;   Inc(T4, N); // тоже самое, что T4 := T4 + N   Edit1.Text := IntToStr(T4); end;