Enviar email com anexo via delphi

Segue abaixo código para enviar email utilizando delphi.

Declare na lista de classes:

uses
IdAttachmentFile, IdMessage, IdSMTP;

Declare na lista de variáveis

var
IdSMTP : TIdSMTP;
lMensagem : TIdMessage;

Código para envio de mensagens

try
IdSMTP := TIdSMTP.Create(Application);

try
lMensagem := TIdMessage.Create(Application);

idSMTP.Username := // emaildo usuario
idSMTP.Password := // senha do usuario
idSMTP.Host := // host do usuaro ex.: provedo.mail.com.br
idSMTP.Port := // porta email -> geralmente 25
idSMTP.Connect;

try
with lMensagem do
begin
Subject := // assunto
From.Address := // email de origem
Recipients.EmailAddresses := // email de destino
Body.Text := // testo do email


TIdAttachmentFile.Create(MessageParts, nome_do_arquivo); // usado para anexar arquivos

idSMTP.Send(lMensagem);
end;

finally
idSMTP.Disconnect;
end;

finally
lMensagem.Free;
end;

finally
IdSMTP.Free;

Close;
end;