Вставка слова в Memo

[artemavd]

Вот код поиска в Memo:

var
 i:integer;
begin
 with Form5.Memo1.Lines do
   for i:=0 to Count - 1 do
     if Pos('FROM',Strings[i]) <> 0 then
      ShowMessage(Strings[i]);
end;

В ответ показывается сообщение с предложением и обраывается на слове FROM. А как сделать, чтобы был не обрыв предлжения, а вставка нового слова после слова FROM? Допустим мне надо вставить слово "Слово" после FROM и чтобы появилось сообщение, в котором было уже было вставленное мною слово.

[mihali4]

Пользуйтесь поиском!
http://programmersforum.ru/showthread.php?t=43346