Si lo puedes guardar, entonces lo unico que te faltaría es utilizar las funciones
ChangeFileExt y
RenameFile
ejemplo: RenameFile('C:\mi_archivo_mail.txt',ChangeFileExt('C:\mi_archivo_mail.txt','eml'));
PD: Para crear el archivo de texto lo más fácil es utilizar un TStringList. y guardarlo directamente con la extención a eml.
Código Delphi
[-]
var
miCorreo : TStringList;
Begin
try
miCorreo := TStringList.create;
miCorreo.LoadFromFile('C:\mi_archivo_mail.txt');
miCorreo.SaveToFile('C:\mi_archivo_mail.eml');
finally
miCorreo.free,
end;
end;