1:
2:
3:
4:

var Tag:String;
Tag:='TEST';
Memo.Lines.Insert(Index,Tag);
Memo.Repaint;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var 
  Tag : String;
  Index : Integer;
 begin
  Tag:='TEST';
  Index := 1; 
// Index := 1 Beitrag unter der letzten beschriebenen line 
// Index := 0 Beitrag über der ersten beschriebenen line
  Memo1.Lines.Insert(Index,Tag);
  Memo1.Repaint;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var i,index:Integer;
begin
  for i:=1 to 28 do
  begin
   if ((i mod 2) >0) then
    begin
     index := M_Editor.Lines.IndexOf(TagList[i]);
     if (index <> -1) then
         M_Editor.Lines.Insert(index+1,TagList[i+1]);
    end;
  end; {for}
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

const TagList:array[1..28] of String = ('<b>','</b>','<i>','</i>','<u>','</u>',
                '<h1>','</h1>','<h2>','</h2>','<h3>','</h3>','<h4>','</h4>',
                '<h5>','</h5>','<table>','</table>','<tr>','</tr>','<td>',
                '</td>','<ul>','</ul>','<ol>','</ol>','<li>','</li>');

var i,count,index:Integer;
        dummy:String;
begin
for count:=0 to M_Editor.Lines.Count-1 do
 begin
  dummy:=M_Editor.Lines[count];
  for i:=1 to 28 do
   begin
    if ((i mod 2) >0) then
     begin
      if (pos(TagList[i],dummy)<>0)and(pos(TagList[i+1],dummy)=0) then
       begin
        dummy:=dummy+TagList[i+1];
        M_Editor.Lines[count]:=dummy;
       end;
     end;
    end; {for2}
  end;
end;