Mandar email con adjunto

[[ElDioni]]

Código Delphi [-]
IdMessage2.ClearBody;
IdMessage2.Recipients.EMailAddresses:='[email protected]';
IdMessage2.Subject:='Asunto';
IdMessage2.Priority:=MpNormal;
IdMessage2.From.Text:='[email protected]';
IdMessage2.Body.Text:='Cuerpo';
TIdAttachmentFile.create(IdMessage2.MessageParts,'C:\Adjunto.pdf');
try
IdSMTP2.Connect;
try
IdSMTP2.Send(IdMessage2);
Finally
IdSMTP2.Disconnect;
end;

Saludos.