두번째는 아마 이럴 것입니다.

인덱스가 넘어 섰다는 것은 인덱스가 없다는 것이죠.
즉,  0부터 1까지 한다면 2개를 없앤다는 것인데
처음 0번째를 지우면 이제 두개중 남은 것은 1개밖에 남지 않게 되고
따라서 두번째것은 인덱스가 이제는 1이 아니라 다시 0이 된 것입니다.

그러므로 거꾸로 지우세요
For i=SeriesCount DownTo 0 do
    RemoveSeries(Series[i]);
     :
     :
이렇게 하면 되ㄹ것입니다.

맞나??
    그럼 이렇게 해도 되나??
                      while (i <2) do begin
       [A                        RemoveSeries(Series[0]);
                            :
       ????
그럼...