为什么程序无法运行

[mx1029]

各位大虾，小弟是初学者，我前一段照书上想编一个文本编辑工具，用到ActionManager,但写的那段保存的句子，却怎么也不能保存，也不报错，如同虚设。是什么原因啊，是D版的原因吗？具体如下：
procedure TForm1.FileSaveExecute(Sender: TObject);
begin
if(FileName='未命名文件.txt')then
FileSaveAs1.Execute
else
RichEdit1.Lines.SaveToFile(FileName);
end;