Wstawianie tekstu do memo (ale powazniejszy problem)

Aby wkleić tekst pomiędzy do TMemo robię: <font color="blue">memo1.SelText:=xxx</span>, np. <i></i>, a żeby ustawic kursor od razu pomiędzy te znaczniki (tak zeby było <i>KURSOR&lt/i>), to?

Z góry dziekuje za odpowiedzi!

JC...

SelStart określa miejsce gdzie zaczyna sie zaznaczenie, ale też miejsce gdzie jest kursor tekstowy - po dodaniu przez SelText znajduje się on po dodanym tekscie.

Przykład z SynEdit (w Memo też chyba powinien smigać):

var
  i : Integer;
begin
  i := length(mcSynEdit.SelText);
  mcSynEdit.SelText :='<i>' + mcSynEdit.SelText + '</i>';
  mcSynedit.SelStart := mcSynEdit.SelStart - i - length('<i>');
  mcSynEdit.SelEnd := mcSynEdit.SelStart + i;
end;

Może Memo nie ma SelEnd (nie pamiętam), ale wtedy można sobie zamienić to na SelLength czy podobne.