WrapText Добавьте перенос строки в строку, чтобы имитировать перенос слов
Пример кода : Замена ' a ' на ' THE ' в предложении
var
before, after : string;
begin // Попытка заменить все вхождения A на THE
before := 'This is a way to live A big life';
after := StringReplace(before, ' a ', ' THE ',
[rfReplaceAll, rfIgnoreCase]);
ShowMessage('Before = '+before);
ShowMessage('After = '+after);
end;
Before = This is a way to live A big life
After = This is THE way to live THE big life