Отмена сохранения в SaveDialog

[Shouldercannon]

Есть форма, а на ней Memo1. В событии формы FormClose

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

В открывшемся диалоге выбираем путь и задаём имя файлу после чего нажимаем на Сохранить. После нажатия на Сохранить форма закрывается и это правельно. А если в диалоге сохранения нажали на кнопку Отмена, то форма всёравно закрывается без сохранения. Как обойти данный момент?

[eoln]

if SaveDialog1.Execute then Memo1.Lines.SaveToFile(SaveDialog1.FileName)
  else Action := caNone

[chertovich]

Для этого лучше использовать обработчик OnCloseQuery, и

if SaveDialog1.Execute then Memo1.Lines.SaveToFile(SaveDialog1.FileName)
else
  CanClose := Close