Udokanec, если немного переделать code_36742.txt, то будет работать в любой день (даже а пятницу 13-го) и немного быстрее, а если убрать Memo, то вообще...
code_36753.txt