Fórum Formulário de envio de e-mail... Quase pronto, porém... #346084

aewww!! pra quem quizer, ta ae o código da minha aplicação...

procedure TForm1.btnEnviarClick(Sender: TObject);
begin
// Remetente
idMessage.From.Address := edtEmailRem.Text;
idMessage.From.Name := edtNomeRem.Text;

// Destinatario
idMessage.Recipients.EMailAddresses := edtEmailDes.Text;

// Mensagem
IdMessage.Subject := edtAssunto.Text; //Assunto
with IdMessage do
begin
Body.Assign(Memo1.Lines);
end;

// Texto HTML
newText := TIdText.Create(IdMessage.MessageParts);
newText.ContentType:=´text/html´;
newText.Body.Add(´<IMG SRC=´cid:´ + ExtractFileName(OpenPictureDialog1.FileName) + ´´>´);

// Anexa a imagem ao corpo do email
newText := TIdText.Create(IdMessage.MessageParts);
newText.ContentType := ´text/plain´;
newAttach := TIdAttachment.Create(IdMessage.MessageParts, pCHAR(ExtractFileName(OpenPictureDialog1.FileName))); // ´google.gif´);
newAttach.ExtraHeaders.Values[´Content-ID´] := pCHAR(ExtractFileName(OpenPictureDialog1.FileName));

// Envia o Email.
with IdSMTP do
begin
AuthenticationType := atLogin;
Host := edtHostSMTP.Text;
Port := 25;
Username := edtUsuario.Text;
Password := edtSenha.Text;
try
Connect;
Send(IdMessage);
finally
if Connected then
ShowMessage(´Mensagem enviada!´);
Disconnect;
Close;
end;
end;
end;


procedure TForm1.btnImagemClick(Sender: TObject);
begin
if OpenPictureDialog1.Execute = true then
begin
if OpenPictureDialog1.FileName <> ´´ then
begin
Memo1.Lines.Add(OpenPictureDialog1.FileName);
end;
end;
end;


procedure TForm1.btnAssinaturaClick(Sender: TObject);
begin
if OpenDialog1.Execute = true then
begin
if OpenDialog1.FileName <> ´´ then
begin
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;
end;
end;

end.




só que.... o que me falta, é o seguinte: quando clico pra inserir a imagem, aparece o caminho no memo e, ao clicar em seguida no button pra inserir a assinatura, no memo é substituído o caminho da imagem, pelo conteúdo do arquivo txt... Minha pergunta:

1. Como fazer para inserir o conteúdo do TXT, na última linha do MEMO, sem substituir o que foi digitado ou inserido de imagem anteriormente??

2. Como configurar para, quando enviar a imagem, no outlook, aparecer a mensagem na CAIXA DE SAÍDA??

3. Como fazer para configurar, a Configuração de Leitura do meu formulário, através do Checkbox?


Aquilo q eu for conseguindo fazer, estarei postando...

Desde já agradeço! Obrigado.