Kuror między znacznikami

Cz ktos wie jak wkleic do komponentu-edytora tekt i zrobic aby
kursor ustawił sie +- po srodku?

Probowalem tak:

<tt>Edytor.SelText:='tekst1';
Edytor.SelStart:=cursor;
Edytor.SelText:='tekst2';

Wynik byl "dobry", tylko ze tekst1 znajdowal sie na poczatku calego tekstu,
a tekst2 na jego koncu ;(

<font color="navy">JC</B></span>

Memo1.SelText := '<b></b>';
Memo1.SelStart := Memo1.SelStart - 4;
Memo1.SetFocus;

Po ustawieniu tekstu kursor ustawia się za nim, więc przesuwasz go do tyłu o tyle pozycji ile znaków ma znacznik zamykający (np. </b> ma 4).