Como cambiar el nombre dejando el mismo formato

[FideRosado]

Hola amigos del foro, tengo una duda hacerca de un procedimiento que debo tomar , se trata de cambiar el nmbre del fichero pero dejando el formato.

este cdigo pertenece a un cliente POP. para correos..

analicen o diganme si hay alguna forma mas tradicional y sencilla de poder consegirlo

Código Delphi [-]
 if (Msg.MessageParts.Items[intIndex] is TIdAttachment) then begin {general attachment}
 attfilename:= TIdAttachment(Msg.MessageParts.Items[intIndex]).FileName;

este seria el nombre: image1.jpg
lo que kiero conseguir es que el nombre sea formato 20140626115003ALEATRIO.JPG

el cas es mantener el formato final de .*

pence en jugar con el ContentType pero es muy engorrso..