procedure TForm1.Button1Click(Sender: TObject);
var
   PasswortList, UsernameList : TStringList;
   i, n, l, j: integer;
begin
   PasswortList:= TStringList.Create;
   PasswortList.LoadFromFile('D:\Delphi\De2\Formular2.11\Login.txt');
   for j := 0 to length(PasswortList[j]) - 1 do begin
       if form1.Edit2.Text = Copy(PasswortList[j], n, l) then
   end;
   UsernameList:= TStringList.Create;
   UsernameList.LoadFromFile('D:\Delphi\De2\Formular2.11\Login.txt');
   for I := 0 to length(UsernameList[i]) - 1 do begin
       if form1.Edit1.Text = Copy(UsernameList[i], n, l) then
   end;
   ShowMessage('Erfolgreich eingelogt');
   if form1.Edit1.Text = Copy(UsernameList[i], n, l) then begin
       if form1.Edit2.Text = Copy(PasswortList[j], n, l) then
   ShowMessage('Leider falsch. Versuch es bitte nochmal.');
   zaehler:= zaehler + 1;
   end;
   if zaehler >= 3 then begin
       Form1.Close;
   end;
   UsernameList.Free;
   PasswortList.Free;
   loginzeit:= TimeToStr(now);