Код:
IdSMTP1.Host := 'mymail@mail.ru';
IdSMTP1.Username :='DG';
IdSMTP1.Password:='1111111111';
Это что за? о_О
1. Проверь, на какой строке виснет (пройдись отладчиком по коду).
2. Так же, как и по одному типу, только в цикле. Советую вынести часть кода в отдельную процедуру.