if Reg2.Exec(StrPage) then
 begin
 repeat
  for i:=0 to memo1.Lines.Count-1 do begin
    if reg2.Match[0]<>Memo1.Lines[i] then begin
     Memo1.Lines.Add(reg2.Match[0]) ;
     break;
    end
  end;
until not Reg2.ExecNext;
 end;