Обновление label

[Taner]

Наверное какая-нибудь глупейшая ошибка, но не выходит сделать чтобы label обновлялась

procedure TForm1.Button1Click(Sender: TObject);
var
  f: TextFile;
  Log, Pass, mText: string;
  i: Byte;
begin
  i:= 3;
  AssignFile(f, 'Administrator.txt');
  Reset(f);
  while not Eof(f) do
   begin
    Readln(f, mText);
    Log:= Copy(mText, 1, Pos(' ', mText) - 1);
    Delete(mText, 1, Pos(' ', mText));
    Pass:= Copy(mText, 1, Length(mText));
    if (Edit1.Text = Log) and (Edit2.Text = Pass) then
     begin
       *какой-нибудь код*
     end
    else
     begin
      Label5.Caption:= IntToStr(i);
      Dec(i);
      if i = 0 then
       begin       
         ShowMessage('Вы превысили число попыток входа');
         Button1.Enabled:= False;
       end;
     end;
   end;
  CloseFile(f);
end;

При выходе меняется на 2 и всё.
Буду благодарен если поможете.

[Streletz]

При выходе меняется на 2 и всё.

Судя по всему, после того как i становится равным 2, меняется значение логического выражения в условии оператора if. Поэтому, в ту ветку, где изменяется значение i, программа просто не входит.
Советую воспользоваться отладчиком, чтобы выяснить причину.

[Taner]

Сообщение от Streletz

Судя по всему, после того как i становится равным 2, меняется значение логического выражения в условии оператора if. Поэтому, в ту ветку, где изменяется значение i, программа просто не входит.
Советую воспользоваться отладчиком, чтобы выяснить причину.

пробовал через отладчик он каждый раз входит в этот цикл при неправильном вводе, а значение в label меняет только после выхода из процедуры, думаю все из-за цикла while
p/s прикреплю файл, я просто совсем не умею с отладчиком работать, может быть посмотрите если будет время

[Mad_Cat]

Братюнь, ты б i глобально обьявил
ибо
1.Ты жмешь на кнопку: i=3 , пароль неправильный i=2
2.Ты снова жмешь на кнопку : i=3 , пароль неправильный i=2
3 см п.2
4.см п.2
...
999 PROFIT?

[Taner]

Сообщение от Mad_Cat

Братюнь, ты б i глобально обьявил
ибо
1.Ты жмешь на кнопку: i=3 , пароль неправильный i=2
2.Ты снова жмешь на кнопку : i=3 , пароль неправильный i=2
3 см п.2
4.см п.2
...
999 PROFIT?

во я дурак-то! спасибо