[ecfisa]

Hola Tourette.

Código Delphi [-]
...
var
  ...
  aFileName: string;
begin
  aFileName := ExtractFilePath(Application.ExeName) +
               StringReplace(DateToStr(Date), '/' ,'-', [rfReplaceAll]) + { '/' no válido para nombre de archivo }
               ' prueba.log';
  f := TFileStream.Create(aFileName, fmCreate);
  ...

Saludos.