var
msg:TIdMessage;
var
jz:integer; buf, data:
string
;
ts:tstringlist;
begin
//в edit2 почтовый ящик и пароль, вида login@mail.ru;123456
loginm:=
copy
(edit2.text,
0
,pos(
';'
,edit2.text)
-1
);
passm:=
copy
(edit2.text,pos(
';'
,edit2.text)+
1
,length(edit2.text));
IdPOP31.Host:=
'pop3.mail.ru'
;
// можно указать любой другой pop сервер
IdPOP31.Username:=loginm;
IdPOP31.Password:=passm;
if
IdPOP31.Connected then IdPOP31.Disconnect;
// Если подключены то, отключаемся.
label1.Caption:=
'Пытаемся подключиться к ящику'
; application.ProcessMessages();
try IdPOP31.Connect; except showmessage(
'Проверьте логин/пароль к почтовому ящику'
);  exit; end;

 msg:=tidmessage.Create(Nil);
 msg.NoEncode:=
true
;
 msg.NoDecode:=
true
;
If IdPOP31.Connected then begin
label1.Caption:=
'Подключились, пытаемся подтвердить письмо.'
; application.ProcessMessages();
IdPOP31.Retrieve(IdPOP31.CheckMessages,msg);
ts:=tstringlist.create();
ts.lines.add(msg.Body.GetText);
end;
if
pos(
'noreply+feedproxy@google.com'
,msg.from.Address) >
0
then
label1.Caption:=
'Ок, письмо фидбёрнер найдено'
; application.ProcessMessages();
for
jz:=
0
to ts.lines.count
-1
do begin
if
ts.lines[jz] =
''
then
break
;
  buf:=buf+ts.lines[jz];
end;
buf:=DecodeBase64(buf);
// выдираем ссылку подтверждения из письма
data:=
copy
(buf, pos(
'http://'
,buf), length(buf)-posex(char(
10
),buf,pos(
'http://'
,buf)));

label1.Caption:=
'Подтверждаем! - финиш'
;
application.ProcessMessages();
// переходим по ссылке в письме
idhttp1.get(
copy
(data,
0
,posex(char(
13
)+char(
10
),data,pos(
'http://'
,data))));

label1.Caption:=
'Работа завершена.'
;
end;