Найти слова, которые встречаются в тексте только 1 раз

[akademochka]

Это одна из функций текстового редактора. Напишите, пожалуйста, код(Delphi)

[phomm]

Мне показалась интересной задача, захотел решить, на уровень новичка код не тянет точно, поэтому придётся разобраться в коде, если хотеть упростить до безпалевного состояния. Это я следую своей давно объявленной политике помощи студентам - помогать только через сложные задания, для упрощения которых до уровня работы студента, надо хотя бы в них разобраться.

Кинуть 2 кнопки (кнопкам, ессно , назначить обработчики), мемо и листбокс. Я не менял имён компонентов, чтобы было легче ориентироваться, но готовые файлы проекта не дам, должны сами сделать.

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    Memo1.Lines.LoadFromFile(Edit1.Text);
  except
    ShowMessage('Неверный файл, введите в поле ввода полное имя файла и повторите попытку');
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
const
 dlm: Char = '~';
var
  s: string;
  sl : TStringList;
  i: Integer;
begin
  ListBox1.Clear;
  s:= Memo1.Text;
  s := ReplaceStr(s, ' ', dlm);
  s := ReplaceStr(s, #13#10, dlm);
  s := ReplaceStr(s, ',', '');
  s := ReplaceStr(s, '.', ''); 
// добавить ещё несловесных элементов для исключения из поиска, всякие скобки слеши
  sl := TStringList.Create;
  try
    sl.Delimiter := dlm;
    sl.DelimitedText := s;
    sl.Sort;
    for i := 1 to sl.Count - 1 do
      if not AnsiSameText(sl[i], sl[i-1]) then // uses SysUtils - подключить модуль, если его нет
        ListBox1.Items.Add(sl[i-1]);
  finally
    sl.Free;
  end;
end;