Fórum Como Escrever texto no email? #230657

COMO Escrever texto no EMAIL?????

simplifiquei o envio de email, o que preciso é inserir um listbox ou um memo não sei qual o mais indicado para escrever um texto no email, veja que o destino e o assunto eu coloquei com edit.text mas como faço no IdMsgSend.Body.Text(texto do email) veja que no meu projeto abaixo falta isso
estou usando Indy e delphi 6.


procedure TForm1.Button1Click(Sender: TObject);
var
begin

// Mensagem
IdMsgSend.Subject := edit2.Text;
IdMsgSend.Body.Text := ´?????????????????´;

// Remetente
idMsgSend.From.Address := ´meuemail@yahoo.com.br´;
idMsgSend.From.Name := ´infohelp´;
IdMsgSend.ReplyTo.EMailAddresses := ´meuemail@yahoo.com.br´;

// Destinatario
IdMsgSend.Recipients.EMailAddresses := edit1.text;

// Copias
//idMsgSend.CCList.EMailAddresses := ´teste@teste.com.br, teste@terra.com.br´;

// Copias Ocultas
//idMsgSend.BccList.EMailAddresses := ´teste@teste.com.br; teste@terra.com.br´;

// Anexa um arquivo
TIdAttachment.Create(idMsgSend.MessageParts,´e:\lixo\envia_email_ind\google.gif´);
// TIdAttachment.Create(idMsgSend.MessageParts,´c:\config.sys´);


// Autenticacao - Use apenas quando o servidor exigir
SMTP.AuthenticationType := atLogin;
SMTP.UserId := ´meulogin´;
SMTP.Password := ´minhasenha´;

// Dados do Servidor
SMTP.Host := ´smtp.mail.yahoo.com.br´;
SMTP.Port := 25;

SMTP.Connect;
try
SMTP.Send(IdMsgSend);
finally
SMTP.Disconnect;
end;
end;




muito obrigado pessoal!!