Форматировать строки в пределах абзаца

[azalivin]

Обнаружить и исправить в тексте дважды записанное слово,записанный текст 80-символьными строками;переформатировать строки в пределах абзаца

помогите решить!!!
есть часть решения:


Procedure DevideStrOnWords(Str : String);
var
CurPos, LengthStr : byte;
Ch : WideString;
ListWords := TStringList;
begin
ListWords := TStringList.Create;
//Преобразование всех разделительных знаков в пробелы
Str:=StringReplace(Str,'.',' ',[rfReplaceAll]);
Str:=StringReplace(Str,',',' ',[rfReplaceAll]);
Str:=StringReplace(Str,'!',' ',[rfReplaceAll]);
Str:=StringReplace(Str,'?',' ',[rfReplaceAll]);
//Удаление лишних пробелов
CurPos := 0;
LengthStr := Length(Str);
repeat
inc(CurPos);
Ch := Copy(Str, CurPos ,1);
if Ch = ' ' then begin
while Copy(Str, CurPos+1, 1) = ' ' do begin
Str := Copy(Str, 1, CurPos)+Copy(Str, CurPos+2, LengthStr-CurPos+1);
Dec(LengthStr);
end;
end;
until
CurPos=Length(Str);
//Форматировние пробелов в символ конец строки
Str:=StringReplace(Str,' ',#13#10,[rfReplaceAll]);
//Строку в StringList это массив слов
ListWords.text := Str;
end;

[Grag]

А не проще убрать пробелы из начала и конца строки функцией Trim()?
А потом уж в конец строки вставить #13#10...