Почему переменная "tt" never used?

[Vado]

В последнем if во внутреннем цикле есть переменная tt; когда выполняю компиляцию пошагово комп вообще не хочет выполнять эти операнды. И внизу написанно tt never used. В чем ошибка?

procedure TForm1.Button3Click(Sender: TObject);
const
  inqFirst=0;
var
  inq: string;
  inqP: string;
  inqCh: string;
  inqL: integer;
  inqCount: integer;
  inqLoc: integer;
  inqLast: integer;
  inqMas: array[1..23] of integer;
  inqBuf: array[1..23] of integer;
  i,j: integer;
  n, buf, min: integer;
  a: boolean;
  tt: integer;
  TperEd: integer;
  Z: integer;
  Tsp:integer;
  k, kk: integer;
  s,f:integer;


  massiv:string;

begin
  inqLoc:=StrToInt(edit4.Text);
  inq:=Edit5.Text;
  inq:=inq + ' ';
  TperEd:=StrToInt(Edit3.Text);
  Tsp:=StrToInt(Edit2.Text);
  a:= false;


  if Form1.RadioButton1.Checked=True then inqLast:= 79;
  if Form1.RadioButton2.Checked=True then inqLast:= 159;
  if Form1.RadioButton3.Checked=True then inqLast:= 319;
  if Form1.RadioButton4.Checked=True then inqLast:= 511;
  if Form1.RadioButton5.Checked=True then inqLast:= 1023;
  if Form1.RadioButton6.Checked=True then inqLast:=StrToInt(Edit1.Text)-1;

  inqL:=Length(inq);
  inqP:='';
  inqCount:=0;
  For i:=1 to inqL do
    begin
      inqCh:=copy(inq,i,1);
      if inqCh = ' ' then
        begin
          inqCount:=InqCount+1;
          inqBuf[inqCount]:=StrToInt(inqP);
          inqP:='';
        end
      else inqP:=inqP+inqCh;
      if i = inqL then
        begin
          inqBuf[inqCount+1]:=inqFirst;
          inqBuf[inqCount+2]:=inqLoc;
          inqBuf[inqCount+3]:=inqLast;
          inqCount:=inqCount+3;
        end;
    end;

  for i:=1 to inqCount do
    begin
      min:=inqBuf[i];
      n:=i;
      j:=i+1;
      while j<=inqCount do
        begin
          if inqBuf[j]<min then
            begin
              min:=inqBuf[j];
              n:=j;
            end;
          j:=j+1;
        end;
      buf:=inqBuf[i];
      inqBuf[i]:=min;
      inqBuf[n]:=buf;
      massiv:=massiv + ' ' + inttostr(inqBuf[i]);
      edit6.Text:=massiv;
    end;


  if RadioButton7.Checked=True then
    begin
      for i:=2 to inqCount do
        begin
          n:=i+1;
          kk:=i-1;
          if inqBuf[i]=inqLoc then
            begin
              j:=1;
              inqMas[j]:=inqLoc;
              j:=j+1;
              while a = false do
                begin
                  inqMas[j]:=inqBuf[n] ;
                  s:=inqMas[j];
                  f:=inqMas[j-1];
                  tt:=tt + (s-f)*TperEd;
                  if inqMas[j]=inqLast then
                    begin
                      tt:=tt+Tsp;
                      j:=j+1;
                      k:=1;
                      while k<=kk do
                        begin
                          inqMas[j]:=inqBuf[k];
                          tt:=tt + (inqMas[j] - inqMas[j-1]);
                          j:=j+1;
                          k:=k+1;
                        end;
                      break;
                    end;
                  j:=j+1;
                  n:=n+1
                end;
              break;
            end;
        end;
    end;
end;

[Vado]

Тема закрыта