Listenindex überschreitet das Maximum

[DSign]

Hallo!
Ich habe ein Problem mit der ListView-Komponente. Ich möchte Daten aus einer ListView im Report-Style mit 2 Colums mit dem folgenden Code in ein Memo-Feld einfügen:

Delphi-Quellcode:

 Memo1.Lines.Add('  SetOutPath $INSTDIR');
 CurrentDir := ListView1.Items.Item[0].Caption;
 for I2:=0 to ListView1.Items.Count-1 do
  begin
   if ListView1.Items.Item[I2].Caption = CurrentDir then
    begin
     Memo1.Lines.Add('  File "'+ListView1.Items.Item[I2].Caption+ListView1.Items.Item[I2].SubItems.Strings[I2]);
    end
    else begin
     NewDir := StringReplace(ListView1.Items.Item[I2].Caption,CurrentDir,'',[rfReplaceAll]);
     Memo1.Lines.Add('  SetOutPath $INSTDIR\'+NewDir);
     CurrentDir := NewDir;
     Memo1.Lines.Add('  File "'+ListView1.Items.Item[I2].Caption+'\'+ListView1.Items.Item[I2].SubItems.Strings[I2]);
    end;
  end;

Nun bekomme ich aber immer den Fehler 'Listenindex überschreitet das Maximum (1)' Ich weiß aber nicht woran das liegt.
Ich hoffe, dass mir helfen kann. Vielen Dank schon einmal für eure Hilfe!

DSign