loggin

[pharaonhx]

rocedure TPasswordDlg.BtnEntrarClick(Sender: TObject);
var
Nombre, Password: String;
I: Integer;
begin
Nombre := 'Flaco';
Password := 'Flaco20999';
I:=1;

repeat
if (EdNombre.Text = Nombre) and (EdPassword.Text = Password) then
begin
frmPrincipal.ShowModal;
end
else
begin
EdNombre.Clear;
EdPassword.Clear;
EdNombre.SetFocus;
BtnEntrar.Enabled := False;
end;//fin del if
I:=I + 1;
until I > 4;
Close;
end;
tengo este procedimiento en el click de un boton estoy tratando de crear un loggin lo que quiero que haga el programa de loggin es que luego de tres intentos por entrar fallidos el programa se cierre y no se donde me falla la loggica si alguien me puede ayudar se lo agradesere