Enviar aquivo anexo no e-mail

Estou enviando e-mail diretamente do Delphi 7 usando os componentes Indy.Quando envio um e-mail sem arquivo anexo o destinatário recebe normalmente o e-mail, mas quando anexo um arquivo, já testei com PDF e TXT, o e-mail não chega ao destino.Estou usando o seguinte código:if FileExists(Nome_Arquivo) thenTIdAttachment.Create(IdMsgSend.MessageParts, Nome_Arquivo);with IdMsgSend dobeginOrganization := Nome_Empresa_Origem;Body.Assign(MMTexto.Lines);From.Address := EMail_Origem;From.Name := Nome_Empresa_Origem;ReplyTo.EMailAddresses := EMail_Origem;Recipients.EMailAddresses := EMail_Destino; { To: header }Subject := 'Assunto' { Subject: header }Priority := mpNormal; { Message Priority }CCList.EMailAddresses := EMail_CC; {CC}ReceiptRecipient.Text := EMail_Origem;end;{authentication settings}SMTP.AuthenticationType := atLogin; {Simple Login}SMTP.Username := EMail_Origem;SMTP.Password := EditSenha.Text;{General setup}SMTP.Host := '192.168.2.1';SMTP.Port := 25;{now we send the message}SMTP.Connect;trySMTP.Send(IdMsgSend);finallySMTP.Disconnect;end;Obrigado.