Работа с текстовым файлом

[rem2010]

Задание:
Текстовый файл содержит текст на естественном языке.
Словом считается:
- последовательность подряд идущих букв или цифр;
- знак препинания (считается отдельным "словом");
- знак-разделитель, например, пробел (считается отдельным "словом").
Программа должна:
- построить словарь, в котором в алфавитном порядке упорядочены все встретившиеся слова (повторяющиеся слова дважды в словарь не включаются);
- сосчитать количество повторений каждого слова;
- сохранить файл словаря в текстовом формате, включая количество повторений.

Но что-то уже на начальном этапе траблы
procedure TForm1.Button1Click(Sender: TObject);
var
openD: TOpenDialog;
list: TStringList;
begin
list:= TStringList.Create;
list.Sort;
openD := TOpenDialog.Create(nil);
openD.Filter := 'тесктовый файл|*.txt';
if openD.Execute then
begin
list.LoadFromFile(openD.FileName);
end;
list.Sorted := True;
list.Duplicates := dupIgnore;
List.SaveToFile('словарь.txt');
end;

Помощи не прошу , но вот от дельного совета не откажусь ))

[Grag]

Как будешь подсчитывать количество повторений, если в списке сразу устанавливаешь исключение дубликатов?