Quellcode Überprüfung (For Schleifen Fehler)

[atzornf]

@Luckie

procedure Tform_benutzerlogin.anmelden_knopfClick(Sender: TObject);

var
benutzername : string;
passwort : string;
login_counter : integer;

begin

benutzername := 'root';
passwort := 'dHuz76Tr%4f1B';
login_counter := 0;

if login_counter < 3 then begin
if (s_benutzername.Caption = benutzername) and (s_passwort.Caption = passwort)
then begin
form_hauptmenue.Show;
end
else begin
ausgabe_fehlermeldung.Caption := 'Falsche Eingabe';
s_benutzername.Clear;
s_passwort.Clear;
login_counter := login_counter + 1;
end;
end;

end;

Habe dies mal nach deiner Vorgabe gestaltet.
Scheint aber noch nicht zu funktionieren.