Проблема с RegExp

[Gdasar]

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

TRegExpr *Reg = new TRegExpr;
TStringList* Text=new TStringList;
Text->LoadFromFile(ExtractFileDir(Application->ExeName)+"\\t.txt");
Reg->ModifierM = true;
Reg->InputString=Text->Text;
Reg->Expression = "\\{T\\}(.*?)\\{/T\\}";
Reg->Compile();
if(Reg->Exec(Reg->InputString))
	do
	{
		Text->Text=Reg->Replace(Reg->InputString, Reg->Match[1], false);
	}
	while(Reg->ExecNext());
Reg->Free();
Text->SaveToFile(ExtractFileDir(Application->ExeName)+"\\t_new.txt");
Text->Free();

Данный код должен найти, например,

{T} help {\T}

или

{T} 
help 
{\T}

и заменить просто на

help

Но появляется ошибка:

TRegExpr(exec): ExecNext Without Exec[Pos]

Я что-то не могу никак понять, из-за чего. Может в логике косяк?! Помогите разобраться.

[Gdasar]

Я понял в чем ошибка. Она заключается в том,что regexp заменяет все соответствия шаблону за одну итерацию. Вот программа и говорит, что соответствий шаблону больше нет и заменять больше нечего. Но как сделать так, что бы regexp производил не сразу замену всего текста,соответствующего шаблону, а под каждое вхождение делал свою(нужную) самену.
Пример:

{T} 
help 
{\T}
{T} 
programmersforum
{\T}

Результат должен быть не такой:

help
help

а вот такой:

help
programmersforum

Подскажите, как реализовать это программно.