Удаление тегов из строки

[Xo66um]

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

Перейду сразу к вопросу... Есть строка с тэгами вида "+|colЦВЕТтекст|+".
Можно как-нибудь удалить только теги (вместе с цветами), но не трогать текст, заключенный в них?

Например, есть строка: "Вася +|colffffffПупкин|+", и из нее должно получится "Вася Пупкин".

Искал решение в интернете - не нашел, только наткнулся на функцию Pos, но без понятия, как с ней обращаться, чтобы достичь нужного результата...
Пробовал самостоятельно, но получается только удалить весь текст, кроме тега с текстом и цветом, которые в него заключены...

[Lime]

function DeleteTags(Text:string):string ;
var
  s:string;
  start_pos:Integer;
begin
  s := Text;
  while (Pos('+|col',s) > 0) do
  begin
  start_pos :=  Pos('+|col',s);
  Delete(s,start_pos,2{+|}+3{col}+6{ffffff пример});
  end;
  s := StringReplace(s,'|+','',[rfReplaceAll]);
  Result := s;
end;

[Xo66um]

Lime, ОГРОМНОЕ Вам человеческое спасибо!