Да ужж... И чего бы вам сразу не предоставить текст задания. Все несколько иначе надо делать.
1. Поскольку в качестве исходного текста задается файл ворда, то и использовать надо соответствующие компоненты.
Код:
Var
WordApp: OLEVariant;
...
WordApp := CreateOleObject('Word.Application');
WordApp.Documents.Open('Документ_Microsoft_Word.doc', ReadOnly := True);
2. Поиск текста по шаблону можно и нужно реализовать средствами ворд.
...
Код:
WordApp.Selection.Find.ClearFormatting;
WordApp.Selection.Find.Text := '\[[0-9]@';
WordApp.Selection.Find.MatchWildcards := True;
WordApp.Selection.Find.Forward := True;
WordApp.Selection.Find.Execute;
Результат поиска по шаблону в ворде будет лежать в WordApp.Selection.Text
Вот примерно таким путем мне кажется идти надо