Enviando email com IdSMTP e emails do Banco de Dados

como vai Delphianos, estou tendo um probleminha, que somente o forum pode me ajudar, preciso enviar email para meus membros, tenho uma consulta que pega Nome, Grupo, Email e gostaria de enviar emails a eles, estou tentando com IdSMTP vejam o codigo, porem so consigo enviar para IdMessage1.Recipients.EMailAddresses:= EditEmailRemente.Text, como eu pegaria e adicionaria os demais:

procedure TForm_EnviarEmail.bt_enviarClick(Sender: TObject);
begin

IdSMTP1.AuthenticationType := atLogin;
IdSMTP1.Host := EditHost.Text;
IdSMTP1.Port:= StrToInt(EditPorta.Text);
IdSMTP1.Username:= EditUsuario.Text;
IdSMTP1.Password:= EditSenha.Text;
IdSMTP1.Connect;
IdSMTP1.Authenticate;


//Envia para

IdMessage1.From.Address:= EditEmailRemente.Text;
DM.ADOQueryEnvioDeEmail.First;
while not DM.ADOQueryEnvioDeEmail.Eof do
begin

IdMessage1.Recipients.Add.Address := DM.ADOQueryEnvioDeEmailEMAIL.Text;
DM.ADOQueryEnvioDeEmail.Next;
end;



IdMessage1.From.Name:= EditRemetente.Text;
IdMessage1.Recipients.EMailAddresses:= EditEmailRemente.Text;
IdMessage1.Priority := mpNormal;
IdMessage1.Subject := EditAssunto.Text;
IdMessage1.Body := Memo1.Lines;
try
IdSMTP1.Send(IdMessage1);
finally
IdSMTP1.Disconnect;

end;