随机文件存入活动文件夹,该如何处理

随机文件存入活动文件夹
所谓活动文件夹
我用
var
  st : TSystemTime;
 begin
  GetLocalTime(st);

  CreateDir(Format('e:监控\'+'%d年%d月%d日',[st.wYear,st.wMonth,st.wDay]));
end;
由此每天都有一个独立的文件夹

这是我做的随机生成按时间命名的文件，
(pchar('e:\监控\'+FormatDateTime('"照片"yyyy-mm-dd-hh-nn-ss',Now)+'.bmp')))

问题是怎么把随机生成的文件（按时间命名）自动存入当天的文件夹中呢？

[解决办法]

Delphi(Pascal) code

(pchar('e:\监控\'+FormatDateTime('yyyy年mm月dd日',Now)+'\照片'+FormatDateTime('yyyy-mm-dd-hh-nn-ss',Now)+'.bmp')))
[解决办法]
其实楼主的意思就是文件保存路径每天都在更新，是吧？
建议是创建文件夹时用变量保存文件夹路径，就是到打开文件夹那步的路径，然后在生成文件时，在文件名前加入变量就可以将文件保存入正确位置了