Placere tekst ÉT bestemt sted i richedit boks!

procedure TForm1.Button1Click(Sender: TObject);
Var
Richtext:ansistring;
begin
if RichEdit1.SelStart = 0 then exit;
Richtext := RichEdit1.Text;
insert(\'<My text to insert>\', Richtext, RichEdit1.SelStart+RichEdit1.SelLength);
RichEdit1.Text := Richtext;
end;

dkn

Tak dkn, men jeg har etekstra spørgsmål!!
Den gør som jeg vil have den til, altså at indsætte teksten der hvor markøren er, men når man har indsat teksten fra buttonlinket så flytter markøren op i starten at richedit, hvordan kan man få den til at flytte markøren hen efter der hvor man har indsat teksten :)

(Hvis du ved hvordan man gør det så får du 15 points ekstra, altså 30 - men hvis der er andre der ved det så får dkn 15 og den der ved det 15)

...
  public
    { Public declarations }
    Procedure InsertTextInRichEdit(REdit:TRichEdit; TextToinsert:string);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
InsertTextInRichEdit(RichEdit1, \'<Test>\');
end;

procedure TForm1.InsertTextInRichEdit(REdit: TRichEdit;
  TextToinsert: string);
Var
Richtext:ansistring;
CurrentStart:integer;
begin
CurrentStart := REdit.SelStart;
if CurrentStart = 0 then exit;
Richtext := REdit.Text;
insert(TextToinsert, Richtext, REdit.SelStart+REdit.SelLength);
REdit.Text := Richtext;
REdit.SelStart := CurrentStart+length(TextToinsert)-1;
REdit.SetFocus;
end;

...

dkn

Ja det virker, MEN... når jeg markerer med | for enden af linien, så indsætter den teskten før det sidste bogstav i linien i stedet for bag ved...

eks.
-HEJ ALLE SAMMEN
+indsæt 213
= HEJ ALLE SAMME123N ?

Hvad kan probemet være?

M.v.h. ProDoc