Как вставить кусок текста в текст

[Tomatos]

Здравствуйте

Нужно вставить кусок текста в определенное место в тексте

Делаю так:
Для начала нахожу нужное место в тексте, далее

Memo1.lines.strings[i]:=Memo1.lines.string[i]+'предложение1' ;
Memo1.lines.strings[i]:=Memo1.lines.string[i]+'предложение2' ;
Memo1.lines.strings[i]:=Memo1.lines.string[i]+'предложение3' ;
Memo1.lines.strings[i]:=Memo1.lines.string[i]+'предложение4' ;

Но в результате получаю строку состоящую из части первого предложения и последнего, думаю это из за ограничения в длинне строки в ТМемо

подскажите как можно организовать вставку текста (абзаца) в нужное место (середину) текста ?

[Stilet]

var i:integer;
begin
i:=0;
Memo1.lines.strings[i]:=Memo1.lines[i]+'предложение1' ;
Memo1.lines.strings[i]:=Memo1.lines[i]+'предложение2' ;
Memo1.lines.strings[i]:=Memo1.lines[i]+'предложение3' ;
Memo1.lines.strings[i]:=Memo1.lines[i]+'предложение4' ;
end;

Все в норме.

[Tomatos]

Вот такой пример текста:
Текст текст текст
Текст текст текст
Текст текст текст
"мой абзац"
текст текст текст
текст текст текст

При использовании выше указанного кода, у меня "мой абзац" вставляется не корректно (видимо он слишком длинный для строки в ТМемо). В итоге я имею начало первого предложения далее кусок последнего предложения и конец первого (начало_первого_предл _ кусок последнего _ конец_первого)

[mosq]

например как-то так

procedure TForm1.Memo2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var s:string; i:integer;
label nothing;
begin
if EnterAsBR.checked=false then goto nothing;
if key<>13 then goto nothing;
i:=memo2.SelStart+1;
s:=memo2.text;
insert('<BR>',s, i);
memo2.text:=s;
memo2.SelStart:=i+3;
nothing:
end;

правда, я этот код использовал в контексте редактирования memo1. мне надо было в случае нажатия Enter вставлять <br>.

[Tomatos]

Спасибо, разобрался...
Просто сделал через строковую переменную

[evg_m]

memo1.WordWrap:=false;