if Reg2.Exec(StrPage) then   //strPage содержится html код страницы, reg2.exec  проверяет его на наличие мыл
 begin
 repeat    
  for i:=0 to memo1.Lines.Count-1 do
    if reg2.Match[0]<>Memo1.Lines[i] then    //в reg2.Match[0] содержится мыло и если его нет в memo1
     Memo1.Lines.Add(reg2.Match[0])     //то собсвтенно и добавляем это мыло в мемо1
until not Reg2.ExecNext;    //переходим к следущему мылу в strPage
 end;

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