IdMessage2.ClearBody;
IdMessage2.Recipients.EMailAddresses:='correo@correo.es';
IdMessage2.Subject:='Asunto';
IdMessage2.Priority:=MpNormal;
IdMessage2.From.Text:='micorreo@micorreo.es';
IdMessage2.Body.Text:='Cuerpo';
TIdAttachmentFile.create(IdMessage2.MessageParts,'C:\Adjunto.pdf');
try
IdSMTP2.Connect;
try
IdSMTP2.Send(IdMessage2);
Finally
IdSMTP2.Disconnect;
end;