[Скрипт] Регулярные выражения

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
  RegExp: TRegExp;
  i: integer;
begin
  RegExp := TRegExp.Create(Form1.Edit1.Text);
  RegExp.InputString := Form1.Memo1.Text;

  if RegExp.Exec then
  repeat
        // matches
        Form1.Memo2.Lines.Add( RegExp.Match[0] );

        // groups
        for i := 1 to RegExp.Match.Count-1 do
            Form1.Memo3.Lines.Add('Group'+IntToStr(i)+': '+RegExp.Match[i]);

  until not RegExp.ExecNext;

  RegExp.Free;
end;