RichEdit: Formatierung finden

[tr909]

So, ich brauche einen simplen Rtf->Html Export (brauch´s eigentlich nur für bold und kursiv). Nun habe ich folgendes zusammengebastelt:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
  leng : integer;
  boldin : boolean;
  boldout : boolean;
begin
  RichEdit1.SelectAll;
  leng := RichEdit1.SelLength;
  boldin := false;
  boldout := false;
  for i := 1 to leng do
  begin
    RichEdit1.SelStart := i;
    RichEdit1.SelLength := 1;
    boldout := true;
    if fsbold in  RichEdit1.SelAttributes.Style then
      begin
        boldout := false;
        if not boldin then
          RichEdit1.SelText := '[b]'+RichEdit1.SelText;
        boldin := true;
      end;
    if boldin then
      if boldout then
      begin
        RichEdit1.SelText := RichEdit1.SelText+'[/b]';
        boldin := false;
      end;
  end;
end;

Meine Frage ist nun, ob es noch eleganter geht, bzw ob es eine Suchfunktion für Formatierungen in RTF gibt?

Gruß
tr909