Agregar fecha al nombre de un archivo.

[Tourette]

Muchas gracias, pero mi duda sigue siendo como escribir el parrafo

f := TFileStream.Create(ExtractFilePath(Application.ExeName)+'prueba.log', fmCreate);

usando el contenido de la variable (en tu ejemplo) aFileName para que me lo tome y me cree el archivo con dicho nombre, porque ya probe de varias maneras pero siempre que corro el programa y uso el boton se me crashea.