Как научить Delphi дружить с RegExp

Приветствую друзья!
Давненько я не писал. Пора возвращаться в колею!
Если кто то из вас пользуется Delphi, то у него наверняка возникала такая мысль: "почему же создатели этого языка не поставляют в комплект регулярные выражения?". Ну у меня точно возникает.
С тех пор как я впервые услышал о RegExp, я постоянно об этом думаю, поскольку на службе приходиться иметь дело именно с Delphi. А используя другие языки, я всё больше убеждался в мощи и удобстве регулярных выражений. И вот, на днях, меня припекло на столько, что сокрушаясь горючими слезами, я чуть было не начал писать RegExp для Delphi самостоятельно.

Запрос в поисковике показал, что ни я один сокрушаюсь по этому поводу, и многие коллеги по цеху, уже прошли этой тропой (написание RegExp). Многие построили свои объекты и классы. Но оказывается, что можно обойтись внутренними возможностями Windows не прибегая к сторонним разработчикам.
Всё, что для этого потребуется это обновленная библиотека VBScript и то только на компьютерах разработчиков, у пользователей скомпилированный проект прекрасно работает и без этого обновления. Правда только для пользователей Windows.

Итак что делаем?

1. Скачиваем вот это обновление
2. Устанавливаем скачанное обновление. (Потребуется перезагрузка)
3. После перезагрузки запускаем Delphi и импортируем библиотеку Microsoft VBScript Regular Expressions
4. Далее мастер спросит присоединять созданый модуль к текущему проекту или создать новый.
5. Теперь для использования RegExp необходима в секции uses указать имя созданного модуля VBScript_RegExp_55_TLB

Вот и всё теперь Delphi умеет использовать Регулярные выражения.
Использовать выражение в программе теперь достаточно просто. Вот листинг такой функции:
Дополнительную справку можно получить в MSDN

Function TestRegExp( aIncomming : String): String;
var
  Reg : TRegExp;
begin
  Reg := TRegExp.Create(nil); //создаём класс
  try
    Reg.Pattern := '([^/]|/[^/])+//'; //записываем регулярное выражение
    Result := ((Reg.Execute(aIncomming) as MatchCollection)[0] as Match).Value; // получаем первое совпадение
  finally
    Reg.Free;
  end;
end;

P.S. Картинки с установкой VBScript размещу в понедельник