Interface

bonjour,
Alors je dois faire une fenêtre sur la quelle il y a un nom d'utilisateur et un mot de passe. En cas d'erreur il y a possibilité de ressayé 3 fois seulement avant que la fenêtre ne se referme.
voici mon programme "la boucle ne marche pas le nombre d'essai n'est pas limité":

var
i:integer;
begin
if (edit1.Text='lou') and (edit2.Text='bdd')
then
begin
showmessage('mot de passe correcte');
form2.Show;
end
else
begin
showmessage('le mot de passe ou le nom d''utilisateur est incorrecte');
 for i:=0 to 3 do
 begin
 
 edit1.Text:=''; edit2.Text:='';
end

 end

 
end;

end.