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

[Stilet]

Тогда так:

var i:integer;
  l:TListItem;
begin
 with Memo1.Lines do
  for i:=0 to Count-1 do begin
    l:=ListView1.FindCaption(0, Strings[i],false,false,false);
    if l<>nil then l.SubItems[0]:=IntToStr(StrToInt(l.SubItems[0])+1)
    else with ListView1.Items.Add do begin
     Caption:=Strings[i]; SubItems.Add('1');
    end;
  end;

end;

Это уж точно сработает.

[Iron Monk]

Сообщение от garuna

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

Но, кажется, делает то, что надо:
Или задача была другая?

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) and (n > 0) then
       ListView1.AddItem(Memo1.Lines[a]+'  '+ IntToStr(n), Memo1);
        m:= m - n;
        n:=0;
    end;
  end;
end.

[garuna]

Разобрался )
Stilet и Iron Monk благодарю за помощь!

[lomastr_]

потому что список большой и нет смысла обрабатывать ненужные строки всякий раз

это к чему? вы идете по всему списку так или иначе, удаляя или нет не имеет значения
для устранения дубликатов есть специальные штуки типа

list:= TStringList.Create;
list.Sorted := True;
list.Duplicates := dupIgnore;

[min@y™]

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