smtp en dephi

[soyhugo]

Te mando la instrucción que manda el mail. además algunas veces me peta el programa cuando va a enviar un correo tal que capturo el error y me pone:

350 5.7.1 <[email protected]>... we do not relay <[email protected]>

//siendo el primer mail al que envio, y el segundo el mío.
//la instrucción que hago es la siguiente, considerando que:
//query_envia.FieldValues['nombre'] es el nombre del destino, al que concateno entre paréntesis su mail, concatenando luego el mail a donde se envía entre < >.
//lista_de.text: es mi nombre
//lista_mail.text: es mi correo (al que se debe responder)
//mi_smtp: es mi servidor smtp


smtp_envia.QuickSend(mi_smtp,caja_tema.Text, query_envia.FieldValues['nombre'] + ' ('+ query_envia.FieldValues['mail'] +')' +' <'+ query_envia.FieldValues['mail'] +'>',lista_de.text + ' <' + lista_mail.Text + '>',caja_cuerpo.Text)

A ver si me puedes decir please qué es lo que hago mal. gracias.