Разбор строки по шаблону

Var
  A:array of string;
  S,Pattern:String;
 
Implementation
 
внутри функции ...
.....
S='Строка состоящая из нескольких_слов_и цифр';
Pattern='% % %_слов%';
result=Razbor(S,Pattern,A);
if result then
   for i:=Low(A) to High(A) do ShowMessage(A[i]);
....
конец функции.
 
Function Razbor(S,Pattern:String;A:array of string):boolean; 
end;

uses
  System.RegularExpressionsCore;
var
  RegEx: TPerlRegEx;
  i: Integer;
begin
  RegEx := TPerlRegEx.Create;
  try
    RegEx.Options := [preCaseLess, preSingleLine];
    RegEx.RegEx := '^(.*) (.*) (.*)_слов(.*)$';
    RegEx.Compile;
    RegEx.Subject := 'Строка состоящая из нескольких_слов_и цифр';
    if RegEx.Match then
      for i := 1 to RegEx.GroupsCount do
         ShowMessage(RegEx.Groups[i]);
  finally
    RegEx.Free;
  end;

uses StrUtils, Types,...;
//...
var
s:string;
strArr:TStringDynArray;
//...
//есть строка
s :='один%два%три';
strArr :=SplitString(s, '%');// разбиваем ее
// получаем массив strArr[0], strArr[1] и т.д.
//...

Пример.
Var
S:String;
Pattern:String;
A:array of string;
 
Implementation
...
S='Строка состоящая из нескольких_слов_и цифр';
Pattern='% % %_слов%';
result=Razbor(S,Pattern,A);
if result then
   for i:=Low(A) to High(A) do ShowMessage(A[i]);
...
 
Function Razbor(S,Pattern:String;A:array of string):boolean; 
...
end;

uses
  System.RegularExpressionsCore;
var
  RegEx: TPerlRegEx;
  i: Integer;
begin
  RegEx := TPerlRegEx.Create;
  try
    RegEx.Options := [preCaseLess, preSingleLine];
    RegEx.RegEx := '^(.*)нескольких(.*)$';
    RegEx.Compile;
    RegEx.Subject := 'Строка состоящая из нескольких_нескольких_слов';
    if RegEx.Match then
      for i := 1 to RegEx.GroupCount do
        ShowMessage(RegEx.Groups[i]);
  finally
    RegEx.Free;
  end;
end;

S:='Жили-были_муж_с женой, и была у них_дочка.';
Pattern1:='%муж%дочка%';      //шаблон_1 для примера.
Pattern2:='%муж%бабушка%';  //шаблон_2 для примера.
Flag1:=Razbor(S,Pattern1,A);
Flag2:=Razbor(S,Pattern2,A);