var
i:integer;
ml:string;
resp:tstringlist;

// захожу на акк
         resp:=tstringlist.create;
         resp.Text:=form1.http1.get('ссылка на поиск');
            for i:=0 to resp.Count-1 do
             begin
              if Pos('www.mail.ru/agent?message&to=',resp.Strings[i])>0 then // если в строке есть эта строчка, то парсим мыла
               begin
                ml:=copy(resp.Strings[i], pos('www.mail.ru/agent?message&to=',resp.Strings[i]),99);
                delete(ml, 1, 29);
                delete(ml, pos('"',ml) ,length(ml));
                form1.memo1.lines.add(ml); // добавляем мыло в мемо.
               end
              end;