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;