Cambiar la extencion de reportes

[soulhunter1980]

Muy buenos dias a todos, mi inquietud es la siguiente:

Debo enviar unos reportes generados (Crystal reports) desde mi aplicacion (delphi 2007), en donde el usuario selecciona el tipo del formato que desea, para posteriormente enviarlo por email.

El codigo utilizado es mas o menos el siguiente:

oApp := CreateOleObject('CrystalRuntime.Application');
FCR := oApp.openreport(FilePath,1);

Cuando se exporta un reporte(local) separado por caracteres (*.chr), se crea sin problemas. Pero cuando se envia por correo, segun exigencias del usuario, se debe cambiar la extension por txt, pero el adjunto del archivo sigue con extencion chr.

Antes de enviar el archivo se realiza el cambio de nombre, de la siguiente forma:

FCR.exportoptions.DiskFileName:= Archivo.txt;
FCR.Export(False);

Si cambio para exportar localmente, antes de generar dicho archivo, lo crea con la extension deseada (Es decir txt)
FCR.ExportOptions.DestinationType := 1;
FCR.Export(False);

Espero me puedan colaborar con esta duda, si es posible indicandome en donde puedo realizar este cambio de extension, o aportando ideas de como hacer esto mismo sin demasiados cambios de codigo.

Muchas gracias por dedicar algo de su tiempo, y un buen dia para todos