Quellcode Überprüfung (For Schleifen Fehler)

[atzornf]

Hallo Leute,

habe ein Problem mit meinem Quellcode. Habe einen Fehler drin, den ich leider nicht erkenne.

Hier mein Quellcode:

Delphi-Quellcode:

procedure Tform_benutzerlogin.anmelden_knopfClick(Sender: TObject);

var
benutzername : string;
passwort : string;
i : integer;
zaehler : integer;

begin

benutzername := 'root';
passwort := 'dHuz76Tr%4f1B';
i := 0;
zaehler := 1;

for i := 1 to 5 do begin

if (s_benutzername.Caption = benutzername) and (s_passwort.Caption = passwort)
   then begin
             s_benutzername.Clear;
             s_passwort.Clear;
             ausgabe_fehlermeldung.Caption := '';
             form_hauptmenue.Show;
             form_benutzerlogin.Visible := False
        end
        else begin
             s_benutzername.Clear;
             s_passwort.Clear;
             end;

        zaehler := zaehler + 1;
        ausgabe_fehlermeldung.Caption := Inttostr(zaehler);
end;
end;

Bei mir springt der Zähler aus irgend einem Grund direkt von 0 auf 6.

Wäre super, wenn Ihr mir helfen würdet.