[v1s2222]

Вставляй функцией Insert в мемо теги и все.
Что-то наподобии:

Код:

  s:=copy(memo1.Text, memo1.SelStart+1, Length(memo1.Lines.Strings[i]));
  Insert('<p>', s, memo1.SelStart);

То бишь вставляем тег <p> туда, где находиться "мигающая палка".