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

) then\n Writeln('looks like an address');\n\n M := TRegEx.Match('order 1234 of 2010-05-06', '(\\d{4})-(\\d{2})-(\\d{2})');\n if M.Success then\n begin\n Writeln(M.Value); // 2010-05-06\n Writeln(M.Groups[1].Value); // 2010\n Writeln(M.Groups[3].Value); // 06\n end;\nend;"}

) then
    Writeln('looks like an address');

  M := TRegEx.Match('order 1234 of 2010-05-06', '(\d{4})-(\d{2})-(\d{2})');
  if M.Success then
  begin
    Writeln(M.Value);              // 2010-05-06
    Writeln(M.Groups[1].Value);    // 2010
    Writeln(M.Groups[3].Value);    // 06
  end;
end;