Nombre del adjunto en un eMail

[gcaffe]

Hola:
He realizado un procedimiento para enviar un correo electrónico con ficheros adjuntos, son las facturas del cliente en formato PDF, todo funcina bien, lo que no puedo conseguir es que el correo que llega al usuario los adjuntos se muestren con el nombre y extensión corrspondiente por ejemplo 'Fac001.pdf' en su defecto siempre llegan con extensión .dat, para el procedimiento utilizo los componentes Indy y la carga de los adjuntos lo realizo así:

Código Delphi [-]
  Path := ExtractFilePath(Application.ExeName)+'\Reportes\';
  for i := 0 to grdFacturas.SelCount - 1 do begin
    grdFacturas.GotoSelection(i);
    PdfName := Path+DM.FactuEnviosNumFactura.Value+'.pdf';
    if FileExists(PdfName) then TIdAttachmentFile.Create(Mail.MessageParts, PdfName);
  end;

Muchas gracias.