while-Schleife verbessern / verschönen

[Luckie]

Ich habe folgende while-Schleife:

Delphi-Quellcode:

        j := 0;
        bCriteria := True;
        // durch Kriterien iterieren
        while (j < NodesCriteria.length) and (bCriteria) do
        begin
          bCriteria := IsHit(FormName, NodesCriteria.item[j]);
          DebugLog('Kriterium ' + IntToStr(j), BoolToStr(bCriteria, True));
          Inc(j);
        end;
        if bCriteria then
        begin
          // letzten Knoten mit Treffer merken
          HitNode := Node;
          Inc(Counter);
        end;

Kann man das noch irgendwie eleganter Lösen? Ich versuche gerade einen Programmablaufplan dazu zu machen, aber da bekomme ich etwas probleme, was mir anzeigt, dass es auch besser gehen müsste.