For-Schleife für eine Stringliste mit Insert in der Schleife

[Alex_ITA01]

Es ist leider doch nicht so einfach wie ich dachte

Hier mal der Code:

Delphi-Quellcode:

          File_Inhalt.LoadFromFile(FileList.Strings[k]);
          for i := 0 to File_Inhalt.Count - 1 do
          begin
            if Pos('NETWORK',File_Inhalt.Strings[i]) > 0 then
            begin
              if Pos('TITLE',File_Inhalt.Strings[i+1]) > 0 then
              begin
                if Pos('=',File_Inhalt.Strings[i+1]) > 0 then
                begin
                  tmpStr1 := File_Inhalt.Strings[i+1];
                  Delete(tmpStr1,1,Pos('=',tmpStr1));
                  tmpStr1 := Trim(tmpStr1);
                  for j := 0 to aGrid.RowCount - 1 do
                  begin
                    if (tmpStr1 = aGrid.Cells[0,j]) and (aGrid.Cells[1,j] <> '') then
                    begin
                      if Pos('//.',File_Inhalt.Strings[i+2]) > 0 then
                        Break
                      else
                      begin
                        //ACHTUNG... Insert ändert List.Count und die erste For-Schleife wird dadurch "ungültig"
                        File_Inhalt.Insert(i+2,'//.' + aGrid.Cells[1,j]);
                        Save := True;
                        if Assigned(GlobalList) then
                          GlobalList.Add(tmpStr1 + '//.' + aGrid.Cells[1,j]);
                        Break;
                      end;
                    end;
                  end;
                end;
              end;
            end;
          end;
          File_Inhalt.SaveToFile(FileList.Strings[k]);

Da unten bei dem Achtung mache ich nur ein Insert...
Könnt ihr euch das mal bitte angucken?
MFG Alex