[Alegun]

Так попроще и переменную d можно выкинуть, лишняя (правда в дате будут точки вместо тире, но вроде это не критично)

Код:

b:= DateToStr(Now) + '.txt';