EStringListError with message 'List index out of bounds (644)' после удаления дубликатов

[dzds]

Здравствуйте, помогите, пожалуйста разобраться

Есть функция для удаления дубликатов из StringList

function Tform1.FO(strl:TstringList):integer;
var
sl:TstringList;
i:integer;
prev:string;
begin
sl:=TstringList.create;
for i := 0 to strl.Count - 1 do
begin
....//заполняется внутренний sl:TstringList из внешнего strl:TstringList путем выделения подстрок из строк strl:TstringList, в результате получается список 10-значных цифр в формате строки (проверено встраивал код для сохранения в файл //sl.SaveToFile('c:\log.log');- кроме цифр ничего в файле не было)
end;
sl.Sort;
prev:=sl.Strings[0];
for I := 1 to sl.Count - 1 do
if sl.Strings[i]=prev then sl.Delete(i) else prev:=sl.Strings[i];
//Тут вываливается ошибка описаная в теме
result:=sl.Count;
end;

Хочу заметить что исходный СтрингЛист (на котором проверялась работоспособность имел 691 строку), а итоговый (как видно из ошибки - 644) где ж здесь "out of bounds"?

П.С. работаю в Borland Developer Studio 2006 Professional (Если єто имеет значение)


___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

for I := 1 to sl.Count - 1 do
if sl.Strings[i]=prev then sl.Delete(i) else prev:=sl.Strings[i];

запомните, когда крутите цикл по каким-либо структурам и в цикле удаляете элементы, то нужно или организовавать обратный цикл от количества_записей downto ИндексПервойЗаписи
или пользоваться циклом с условием - и изменять переменную цикла самостоятельно.
Вот, например, так:

prev:=sl.Strings[Count - 1];
for i := Count - 2 downto 0 do
   if sl.Strings[i]=prev 
        then sl.Delete(i) 
        else prev:=sl.Strings[i];

[dzds]

Большое сапсибо, все получилось

А насчет того что код надо оформлять тегами CODE, прошу прощенья, первый раз на флруме, на будущее буду знать спасибо