Anexar arquivo sem extensão

Pessoal

Tenho no sistema uma opção onde eu listo alguns arquivos para enviar por e-mail, o problema é que mesmo enviando o e-mail em formato html, quando eu anexo um arquivo que não tem extensão a extensão fica como (.dat), existe alguma forma de anexar sem que seja adicionado a extensão do arquivo?

Usando Indy

//Tratando os arquivos anexos
for xAnexo := 0 to ListBoxAnexo.Items.Count-1 do
TIdAttachment.Create(IdMessage1.MessageParts, TFileName(ListBoxAnexo.Items.Strings[xAnexo]));

Agradeço