Пароль на приложение в Delphi

[kosya]

Доброго время суток! Поставил пароль на приложение с ограниченным количествам попыток ввода.Вроде все как бы работает .Приложение запускается. При правильно введенном пароле переносит на следующею форму. Но если пароль введен неправильно, то вместо надписи у вас осталось 2 попытки пишет 4394882 попытки. Значит ошибка где-то в условии! Подскажите пожалуйста что и где исправить! Заранее благодарю за участие.

procedure TForm2.Button1Click(Sender: TObject);
const
pas='159357';
var
n,i:integer;
begin
i:=i+1;
n:=3-i;
if edit1.Text=pas then
begin
hide;
free;
form3.show;
end
else
if i=3 then
close
else
label1.caption:='Пароль введен не правильно.У вас еще' +inttostr(n)+ 'Попыток';
end;

[evg_m]

Tform2 =class(Tform)
..........
private
  i: integer;
end;

procedure TForm2.OnCreate(sender: TObject);
begin
   self.i=0;
end;

procedure TForm2.Button1Click(Sender: TObject);
const
  pas='159357';
var
  n:integer;
begin
  self.i:=self.i+1;
  n:=3-self.i;
  if edit1.Text=pas then
  begin
    hide;
   free;

[DeKot]

ошибка ... в условии!

Переменная i объявлена в процедуре, т.е. локально. Следовательно начальное значение ее не определено и может принимать любое значение.
А далее по программе : i:= i + 1; и n:= 3 - i;
Вот Вы и получаете количество оставшихся попыток (n) какоето неопределенное число.
i надо объявить глобально, тогда начальное значение будет равно 0.

[Filutki]

кусок из моей программы, которую сам недавно писал, написана немного проще чем у тебя:
...

var  k:integer; 

...
procedure TForm1.Button1Click(Sender: TObject);
begin

if edit1.text='123456'
then begin
label1.Caption:='Верно';
edit1.Enabled:=false;
end
 else     begin
 k:=k-1;
  edit1.text:='';
 showmessage('Неверный пароль! У вас осталось '+inttostr(k)+' попыток');
 edit1.SetFocus;
  end;
  if k=0 then begin
  showmessage('Пароль введен неверно 3 раза, программа закрывается');
  form1.close;    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
k:=3;
end;