Hola, yo lo hago así directo y me lo envía bien. El FileName del TIdAttachmentFile yo lo utilizo para recuperar archivos adjuntos, cuando lees el correo con TidPOP3.
Código Delphi
[-]
if OpenDialogAdjunto.Execute then
begin
TIdAttachmentFile.Create(IdMessage.MessageParts, OpenDialogAdjunto.FileName);
LabelRuta.Caption := OpenDialogAdjunto.FileName;
end;
Saluditos