Quellcode Überprüfung (For Schleifen Fehler)

[Luckie]

Delphi-Quellcode:

for i := 1 to 3 do
begin
  if (s_benutzername.Caption = benutzername) and (s_passwort.Caption = passwort) then
  begin
    s_benutzername.Clear;
    s_passwort.Clear;
    form_hauptmenue.Show;
  end
  else
  begin
    s_benutzername.Clear;
    s_passwort.Clear;
    ausgabe_fehlermeldung.Caption := 'Falsche Eingabe';
    zaehler := i + 1;
  end;
  if zaehler >= 6 then
  begin
    form_benutzerlogin.Close;
  end;
end;

Ich habe es mal sauber formatiert. Vielleicht siehst du dann deinen Fehler.

Davon mal abgesehen. Lokale Variablen werden nicht initialisiert. zaehler enthält also einen zufälligen Wert. Und was soll das zaehler := i + 1; ?