FormClose事件怎么写delphi

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
dialogvalue : integer;
begin
dialogvalue := messagedlg('是否保存文件？', mtconfirmation, [mbyes, mbno, mbcancel], 0);
if dialogvalue = id_yes then
begin
if (savedialog1.Execute) and (savedialog1.FileName <> '') then
RichEdit1.Lines.SaveToFile(savedialog1.FileName);
end;
if dialogvalue = id_cancel then
action := canone;
end;

这样写 保存后的文件不会显示txt文本 而且用txt打开 里面也不是保存的值？

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin

if Application.MessageBox(Pansichar('是否要保存文件？'),'提示',MB_OKCANCEL + MB_ICONQUESTION = mrOk then

begin

if SaveDialog1.Execute then RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);

end;
end;