Problem bei meinem Loginsystem & der Hauptunit

[haentschman]

Um eine Form zu schließen benutzt man den Befehl "Close". In deiner Anweisung if trys=0 then Close; hattest du ihn schon drin. Nur in der Abfrage ob Paßwort korrekt fehlte er.
...Ich sehe grade daß begin/end noch fehlt. (Koffeinmangel )

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
begin
  if (edit1.Text= pwd) and (edit2.Text= usr) then
  begin 
    Caption:=('Correct password');
    Close;
  end
  else
  begin
    Caption:=('Wrong password');
    trys := trys-1;
    if trys=0 then Close;
  end;
end;