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

until not Reg2.ExecNext;   
 end;