[GriLab]

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

Код:

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;