Verschachtelte While- Schleife funktioniert nicht

[DelphiUser123]

Eine Timer- Procedure prüft kontinuierlich: Wenn er eine bestimmte Datei (KEYxyz.txt) NICHT findet, soll das Programm schliessen. Ursprünglich hatte ich zwei ineinander verschachtelte For- Schleifen, eine geht die Laufwerke durch, die andere geht die darin enthaltenen Dateien durch. Falls die Datei gefunden wird, bricht ein Exit Befehl die gesamte Procedure ab, das Programm bleibt geöffnet. Das hatte funktioniert.
Nun habe ich die For- Schleifen in While- Schleifen übertragen mit Abbruchbedingung und incrementierender Laufvariablen, um auf das "Exit" zu verzichten.
Obwohl die Datei in einem Laufwerk vorhanden ist, wird das Programm dummerweise abgeschaltet. Er kommt nicht rein in den Bereich "Showmessage('in pausieren drin');" (s.u.) obwohl die Datei vorhanden ist.
Wo ist das Problem im Code?

Code:

procedure TForm29.Timer1Timer(Sender: TObject);

var j,i:integer; LookFor: string;   f: File; pausieren: boolean;
begin

try   //T
         pausieren:=false;
         j:=0; i:=0;

    while ((j < (Form29.DriveCombobox1.GetCount)) and (not(pausieren))) do

    begin //B

      Form29.DriveCombobox1.itemindex:=j;

      Inc(j);

      Form29.FileListBox1.Directory:=Form29.DriveCombobox1.text[1] + ':/';

      LookFor:='KEYxyz.txt';

      Form29.FileListBox1.Update;
                                          
    while ((i < (Form29.FileListBox1.Count)) and (not(pausieren))) do

    begin //A

      if (Form29.FileListBox1.Items[i]= LookFor)  then begin //Showmessage('gefunden');

            FileNom:= Form29.FileListBox1.Directory + LookFor;

                        if timerstarter=true then begin

                          Laden();
                          timerstarter:=false;
                        end;

                            pausieren:=true;
                                Showmessage('in pausieren drin');

      end;
      Inc(i);

    end; //A

       if ((j=Form29.DriveCombobox1.GetCount) and (not(pausieren))) then begin Application.Terminate; end;
           
    end; //B
    except //T
     on EInOutError do  begin
     Application.Terminate;
    end;

end;

end;