Fórum Copia Oculta - Email IDSmtp #313148

Galera, como envio e-mail com cópia oculta?

estou com o seguinte codigo

o metodo ReplyTo nao funciona, para enviar copia oculta...

Aguardo Resposta

with IdSMTP1 do
Begin
//Nome do host
// Host:= edit1.Text;
//Nome do usuário, normalmente o e-mail
// Username:= edit2.Text;
//Conecta com o servidor smtp
Connect();

End; //with

with IdMessage1 do
Begin
//O seu endereço de e-mail
From.Address := ´endereco´;
From.Name := ´Nome´;
//Aqui vai o endereço de e-mail para o qual você quer mandar o e-mail
Recipients.EMailAddresses := ´Email´;
ReplyTo.EMailAddresses := ´Email secreto´;

//O assunto da mensagem
Subject := ´Teste´;
//A mensagem que você quer mandar
Body.Text := Memo1.Text;
MessageParts.Clear;
End; //with
//anexar
TIdAttachment.Create(IdMessage1.MessageParts , Edit1.Text);
IdSMTP1.Send(IdMessage1) ;
IdSMTP1.Disconnect;