[Shkentik]

делаю окно ввода пароля и чехла немогу набить))
надо шоб при 3 невер. вводах оно закрывалось, а взамен выскакивает 3 раза окна showmessage))) подскажите где лажанулся))

procedure TForm2.Button1Click(Sender: TObject);
var
mas:array[1..3] of Integer;
i:Integer;
begin
for i:=1 to 3 do
begin
if Edit1.Text='1' then
begin
f:=true;
begin
Form2.Close;
Application.Title:=('DA!!!!!!') ;
showmessage('GO-GO-GO!!!!')
end;
end
else
begin
Application.Title:=('Ошибка!!!!!!') ;
showmessage('Пароль введен неверно!!!!')
end;
end;
end;

[Winny]

Роковая строка:

Код:

for i:=1 to 3 do

[The Shadow]

Еще интересно зачем здесь mas:array[1..3] of Integer;

[Igory86]

Твой Form2.Close; закрывает форму раньше чем произойдет
Application.Title:=('DA!!!!!!') ;
showmessage('GO-GO-GO!!!!');
они просто не будут выполнены!
Если хочеш увидеть как я решаю проблему - Сходи на Сайт Http://Exeschnick.narod.ru