Converte String em Text

Como posso converte uma [color=red:cbc6d762ea][b:cbc6d762ea]string em uma text ?[/b:cbc6d762ea][/color:cbc6d762ea]
Vou usar isso para abrir um txt num RichEdit1!

procedure TFrmEditor.Abrir1Click(Sender: TObject);
var
texto : TextFile;
begin
if OpenDialog1.Execute then
begin
AssignFile(texto ,OpenDialog1.FileName);
reset(texto);
richedit1.Text := texto;