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