Проблема с TStringList'ом

[FanRa3]

procedure TForm1.Button3Click(Sender: TObject);
var
i, i2, p, st: integer;
ss: TStringList;

Begin
ss := TStringList.Create;
ss.LoadFromFile(Edit4.Text);
For i := 0 to ss.Count-1 do
Begin
p := pos('IngameCatalog is a',ss[i]);
if p > 0 then
begin
st := i+2;
end;
end;

при выполнении 2 цикла программа падает и говорит, что цикл вышел за пределы массива, хотя в первом цикле всё нормально. в файле, в котором я ищу строку содержится 63к строк. а когда начинается 2 цикл, делфи ругается, что я вышел за пределы 31к строчек. в чём может быть проблема?

[Grag]

Вот это

for i2 := 0 to st do
begin
ss.Delete(i2);
end;

напиши вот так

for i2:=st downto 0 do
  ss.Delete(i2);

[FanRa3]

большое спасибо!
всё работает!