regex - TPerlRegEx の MatchAgain メソッドが機能しない理由

Question

(Delphi XE4 および XE5 でコーディングしています) を使用して、次のテキストから抽出SAAMしたいと思います。SAAMIRegEX

RegEx = 'Name:\s?(.*),Family:\s?(.*)';

たとえば、私はこのテキストを持っています:

Name: SAAM
Family: SAAMI

私はこのコードを書き、2 つの正規表現 ( And ) を一致させるために のMatchAgainメソッドを使用します。TPerlRegEx'Name:\s?(.*)''Family:\s?(.*)'

...
var
  RX: TPerlRegEx;
const
  RegEx = 'Name:\s?(.*),Family:\s?(.*)';
begin
  RX := TPerlRegEx.Create;
  try
    RX.RegEx := RegEx;
    RX.Subject := mmo1.Text;// The mmo1.text value is "Name: SAAM and Family: SAAMI"
    if RX.Match then
    begin
      repeat
        ShowMessage('Name is :' + RX.Groups[1]);
        ShowMessage('Family is :' + RX.Groups[2]);
      until not RX.MatchAgain;
    end;
  finally
    RX.Free;
  end;
...

このコードが機能しないのはなぜですか??