Cambiar nombre adjunto con IdMessage

[vivamotos]

Buenos días

Envio un correo mediante IdMessage e IdSMTP pero no consigo cambiar el nombre del adjunto siempre sale lo que adjunto como: Attachment.tal.
Como lo puedo hacer, mirad mi codigo:

TIdAttachment *attachment = new TIdAttachmentFile(IdMessage1->MessageParts,"C:\\typhoon\\temporal_cartisa.xls");
    attachment->ContentID = "UIPSA_Albaran_"+horas[2]+"_"+grid->Cells[3][1]+".xls";
    attachment->ContentType=GetMIMETypeFromFile("C:\\typhoon\\temporal_cartisa.xls");
    attachment->FileName="UIPSA_Albaran_"+horas[2]+"_"+grid->Cells[3][1]+".xls";
    attachment->ContentTypeName="UIPSA_Albaran_"+horas[2]+"_"+grid->Cells[3][1]+".xls";
    attachment->ContentDescription="UIPSA_Albaran_"+horas[2]+"_"+grid->Cells[3][1]+".xls";
    attachment->DisplayName="UIPSA_Albaran_"+horas[2]+"_"+grid->Cells[3][1]+".xls";

Grácias