Помогите найти ошибку

[garuna]

Есть список (TStringList) состоящий из разных слов

собака
кошка
лошадь
корова
кошка
лошадь
собака
корова
собака
...

Нужно вывести в ListView сколько раз в этом списке встречается каждое слово.
Написал следующий код, выводит правильно несколько записей и вылетает с ошибкой List out of bounds.
Помогите найти причину ошибки.

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i, j, C, All: integer;
  S: string;
  NewItem: TListItem;
begin
 with TStringList.Create do
 try
  LoadFromFile('spisok.txt');
  ListView5.Items.BeginUpdate;
  All:= Count-1;
  for i:=0 to All do
  begin
   S:= Strings[i];
   C:= 0;
   for j:=All downto 0 do
   begin
    if Strings[j] = S
    then
    begin
     Inc(C);
     Delete(j);
     All:= Count-1;
    end;
   end;
   NewItem:= ListView5.Items.Add();
   NewItem.Caption:= S;
   NewItem.SubItems.Add(IntToStr(C));
  end;
 finally
  Free;
 end;
  ListView5.Items.EndUpdate;
end;

[Stilet]

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i, j, C, All: integer;
  S: string;
  NewItem: TListItem;
begin
 with TStringList.Create do
 try
  LoadFromFile('spisok.txt');
  ListView5.Items.BeginUpdate;
  while Count>0 do  begin
   S:= Strings[i];
   NewItem:=ListView5.FindCaption(0,s,false,false,false);
   if NewItem<>nil then NewItem.SubItems[0]:=IntToStr(StrToInt(NewItem.SubItems[0]))
   else begin
    NewItem:= ListView5.Items.Add();
    NewItem.Caption:= S;
    NewItem.SubItems.Add('0');
   end;
   delete(i);
  end;
 finally
  Free;
 end;
  ListView5.Items.EndUpdate;
end;

[garuna]

Stilet,

То же самое, List index out of bounds. Смотрю через MadExcept, указывает на строку S:= Strings[i];

[lomastr_]

зачем удалять строки? чтобы программа подтормаживала?

[Stilet]

Смотрю через MadExcept, указывает на строку S:= Strings[i];

Это мой косяк: S:= Strings[0]; и delete(0);

зачем удалять строки?

Напиши свой вариант без удаления )
Я же не против.

[northener]

Stilet, а откуда i взялось?

[garuna]

Stilet, Теперь без ошибок, но выводит нули. Что это за странная строка NewItem.SubItems[0]:=IntToStr(StrToInt(NewItem.SubItem s[0])) ?
lomastr_, потому что список большой и нет смысла обрабатывать ненужные строки всякий раз

[Iron Monk]

Вместо Memo1 используй TStringList. Я так и не понял - это нужно?

procedure TForm1.Button1Click(Sender: TObject);
var
a, i, n, m: integer;
begin
n:= 0;
m:= Memo1.Lines.Count -1;
for a:= 0 to Memo1.Lines.Count -1 do
  begin
    for i:= a to Memo1.Lines.Count -1 do
    if Memo1.Lines[a] = Memo1.Lines[i] then
    Inc(n);
    if m > 0 then
       ListView1.AddItem(Memo1.Lines[a]+'  '+ IntToStr(n), Memo1);
        m:= m - n;
        n:=0;
    end;
  end;
end.

[Stilet]

а откуда i взялось?

Я просто не убирал из кода автора лишнее.

выводит нули

Забыл койче: NewItem.SubItems[0]:=IntToStr(1+StrToInt(NewItem.SubIt em s[0])) ?

[garuna]

Stilet, не работает.
Iron Monk, это не то.