for Schleife hat unterschiedliche Werte ???

[F.W.]

Hallo! Ich habe mal wieder eine Beobachtung gemacht:


Erstmal der Quellcode:
(Es soll geprüft werden, ob in einem Dateinamen ein Wochentag steckt)

Delphi-Quellcode:

procedure TMain.Log(S: String);
begin
 Memo.Lines.Add(S);
end;

  { ... }

const
  Days: Array[0..6] of String = ('Montag',
                                 'Dienstag',
                                 'Mittwoch',
                                 'Donnerstag',
                                 'Freitag',
                                 'Samstag',
                                 'Sonntag');

 { ... }

 for I := Low(Days) to High(Days) do begin
     if Pos(UpperCase(Days[I]), FN) = 5 then begin
{->        Log(Inttostr(I)+':  '+Days[I]);  }
        FileDatum.Tag := Copy(FN, 1, 2);
        FileDatum.monat := Copy(FN, 3, 2);
        FileDatum.Jahr := IntTostr(YearOf(Date));
        FileDate := StrTODate(Filedatum.Tag+'.'+Filedatum.Monat+'.'+FileDatum.Jahr);
//        FileDate := StrTODate(Format('%d.%d.%d', [Filedatum.Tag, Filedatum.Monat, FileDatum.Jahr]));

        if Date > FileDate then Result := vfsOlder;
        if Date <= FileDate then result := vfsAktuell;

     end else Result := vfsNoFile;
 end;

Ich hab mal hingesehen und bemerkt, dass I erst den Wert 7 hat, danach den Wert 6... bis 1.
Wenn ich die mit "->" gekennzeichnete zeile einfüge, hat I erst den Wert 0, dann 1... bis 6.

Wie issn das wieder möglich?
*heul und verzweifel