Регулярные выражения в Delphi XE

{$APPTYPE CONSOLE}
uses RegularExpressions;
begin
  if TregEx.IsMatch('eksaek647dl', 'ek\d+') then
    WriteLn('Yes')
  else
    WriteLn('No')
// Yes
end.

{$APPTYPE CONSOLE}
uses RegularExpressions;
begin
  if TregEx.IsMatch('eksaek647dl', 'ek\d+') then
    WriteLn('Yes')
  else
    WriteLn('No')
// No
end.

{$APPTYPE CONSOLE}
uses RegularExpressions;
begin
  if TregEx.IsMatch('eksaeK647dl', 'ek\d+', [roIgnoreCase]) then
    WriteLn('Yes')
  else
    WriteLn('No')
// Yes
end.

{$APPTYPE CONSOLE}
uses RegularExpressions;
var
  m: TMatch;
begin
  m := TRegEx.Match('eksaek647dlgddek43gfd','ek\d+');
  while m.Success do
  begin
    WriteLn(m.Index, ' ', m.Length, ' ', m.value);
    m := m.NextMatch;
  end;
//5 5 ek647
//15 4 ek43
end.

{$APPTYPE CONSOLE}
uses RegularExpressions;
var
  re: TRegex;
  mc: TMatchCollection;
  i: Integer;
begin
  re.Create('ek\d+');
  mc := re.Matches('eksaek647dlgddek43gfd');
  for i:=0 to mc.Count-1 do begin
    WriteLn(mc[i].Index, ' ', mc[i].Length, ' ', mc[i].value);
  end;
//5 5 ek647
//15 4 ek43
end.

{$APPTYPE CONSOLE}
uses RegularExpressions;
var
  s: String;
  ar: TArray<String>;
begin
  s := TregEx.Replace('55ek6saeK647dl', 'ek\d+', ' ', [roIgnoreCase]);
  WriteLn(s);
// 55 sa dl
  ar := TregEx.Split(s, ' s?');
// 3 a
  WriteLn(Length(ar), ' ', ar[1]);
end.