[Glob]

Уже голову сломал незнаю в чем ошибка:

Код:

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

Edit4 пустое, без пробелов!, но переменная t4 все равно принимает значение "1"

Следовательно условие

Код:

t4:=StrToInt(Edit4.text)+1

выполняется

Где я ошибся?

[Ildar-tsr]

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

Код:

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

[FlyInDream]

Странно, а у меня этот код даёт верный результат (при пустом Edit t4=0).

[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;