Hi!
Und warum nicht einfach so?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
b: Integer;
begin
b:=RichEdit1.SelStart;
Richedit1.SelText:='[b]'+Richedit1.SelText+'[/b]';
RichEdit1.SelStart:=b+3;
end;
Hab das kurz getested und das macht eigentlich das selbe mit weniger Aufwand, oder?
ciao fkerber