[tesla]

Доброго времени суток!

есть программа, которая отображает в ListBox текстовые файлы, текст файла подгружается в RichEdit1, в файле роставлены тэги нужно форматировать текст в зависимости какой тэг поставлен, это делает вот этот кусок кода:

Код:

procedure TForm1.Open1Click(Sender: TObject);
var i1,i2: integer;
begin
 RichEdit1.Lines.LoadFromFile(ListBox1.Items.Strings[ListBox1.ItemIndex]); 

 i2:=0;
 repeat
   i1:=RichEdit1.FindText('[c]',i2,MaxInt,[stMatchCase]);
   if i1 < 0 then Break;
   inc(i1,3);
   i2:=RichEdit1.FindText('[/c]',i1,MaxInt,[stMatchCase]);
   if i2 > 0 then
   begin
    RichEdit1.SelStart:=i1;
    RichEdit1.SelLength:=i2-i1;
    RichEdit1.SelAttributes.Style:=[fsBold];
    inc(i2,3);
   end;
 until i2 < 0;
end;

всё работает, но, в RichEdit отображается текст вместе с этими тэгами, как зделать чтобы они не выводились? но при этом текст остался отформатированным...

StringReplace не подходит, так как тэг удаляется, но форматирование "не происходит"

прошу помощи