记事本的“退出”问题(50分)

我是一名初学者，刚刚做了一个记事本小程序，里面用到了memo、opendialog、
和savedialog，（全部用默认值）请问下面的代码如何写，如果在memo中输入一些
内容后，点击“退出”时，应出现一个警告框“文件内容已经改变，是否保存”“
yes no cancel”，最后分别实现相应的操作。万分感谢！

做一个标识。
M_CHANGE:BOOLEAN;
在MEMO1的ONCHANGE里写：M_CHANGE:=TRUE;
在FORM的CLOSEQUERY里写
if m_change then
case messagebox(handle,'','',mb_yesnocancel) do
idyes:......
idno:.....
idcancel:......
end;

memo中有个modified属性，记录memo是否被改变