Adjunto noname en mail con Indy

[DrkMgc]

Hola Foro!

Resulta que hice un programa para mandar mails, y quise añadirle la posibilidad de adjuntar archivos. Saqué las referencias de este foro como para guiarme.

No tengo ningún error. El problema se da cuando reviso mi correo. Recibo el archivo adjunto, pero con el nombre 'noname', sin extensión, y así se baja. Evidentemente es el archivo que adjunto, porque si adjunto un *.doc, bajo el 'noname' y lo abro con Word, y puedo ver el contenido sin problemas, igual con las imagenes y con los pdf.

Les paso el código para el envío:

Código Delphi [-]
procedure TFormMensaje.ButtonEnviarClick(Sender: TObject);
begin
  ProgressBar1.Visible := True;
  IdSMTP.Host := EditSMTP.Text;
  IdSMTP.Username := EditUsuario.Text;
  IdSMTP.Password := EditPassword.Text;
  if not IdSMTP.Connected then
    IdSMTP.Connect;
  IdMessage.From.Address := EditPara.Text;
  IdMessage.From.Name := EditNombre.Text;
  IdMessage.Body := MemoMensaje.Lines;
  IdMessage.Subject := EditAsunto.Text;
  IdMessage.Recipients.EMailAddresses := EditPara.Text;
  IdSMTP.Send(IdMessage);
  Application.MessageBox('Mensaje enviado.', 'Aviso', MB_OK + MB_ICONINFORMATION);
end;

Este es el código para adjuntar:

Código Delphi [-]
if OpenDialogAdjunto.Execute then
  begin
    //LabelRuta.Caption :=  TIdAttachmentFile.Create(IdMessage.MessageParts, OpenDialogAdjunto.FileName).FileName;
    LabelRuta.Caption :=  TIdAttachmentFile.Create(IdMessage.MessageParts, 'D:\Dibujo.jpg').FileName;
  end;

¿Cómo puedo hace para que el archivo se adjunte con su nombre y extensión original?

Thanks in advance!