"nummerierung" bei TStrings

[glkgereon]

hi
ich hab eine procedure, in der ist unter anderem folgende schleife drin
die soll das abgleichen von zwei TStrings erledigen

Delphi-Quellcode:

for i:=0 to Data1.Count-1 do
   Begin
   If Data1.IndexOf(Data2.Strings[i])=-1
   Then Data2.Delete(i);
   End;

ich hab mir das so gedacht:
data2 beinhaltet alles, data1 nur teile der daten

er geht jedes element durch
wenn es in data1 nicht enthalten ist (-1) dann soll ers löschen

damit er nicht über den rand läuft, läuft er nur bis data1.count-1

aber es kommt zu der fehlermeldung

"ungültiger index (2)" (oder so ähnlich, jedenfalls die klassische meldung für einen overflow)

wo ist mein denkfehler, oder spinnt mein delphi?

ich weiss nämlich absolut nicht weiter