Добавление строк в TStringList и нахождение количества одинаковых строк

procedure TForm1.Button1Click(Sender: TObject);
var
  Sl : TStringList;
  i, j, Cnt : Integer;
begin
  //Список различающихся строк. Этот список мы настроим таким образом, что
  //он будет автоматически запрещать добавление повторов строк.
  Sl := TStringList.Create;
  Sl.Sorted := True; //Первая настройка: такой список должен быть сортируемым.
  Sl.Duplicates := dupIgnore; //Вторая настройка: при попытке записать повтор строки добавление отменяется.
  Sl.Assign(Memo1.Lines); //Записываем в список набор строк без повторов.
 
  //Подсчитыавем количество присутствий различающихся строк в Memo1.
  //Результаты записываем в Memo2.
  for i := 0 to Sl.Count - 1 do
  begin
    Cnt := 0;
    for j := 0 to Memo1.Lines.Count - 1 do
      if Memo1.Lines[j] = Sl[i] then
        Inc(Cnt);
    Memo2.Lines.Add(Sl[i] + ' - ' + IntToStr(Cnt));
  end;
 
  FreeAndNil(Sl); //Освобождаем память, выделенную для списка и обнуляем указатель на него.
end;