savedialog(100分)

有这样一段代码:
if savedialog1.Execute then writedat(savedialog1.FileName );
deletefile('d:/compass/'+currchild.Caption) ;
其中writedat()是我编写的一个过程,我想在执行第一行代码后(保存对话出现),如果
按取消按钮不执行第二行代码,请问该怎么办?即如何知道按下的是savedialog的取消按钮?

直接把它和第一行代码放在一个begin end里就行了。
if savedialog1.Execute then
begin
writedat(savedialog1.FileName );
deletefile('d:/compass/'+currchild.Caption) ;
end;
SaveDialog1.Execute返回的是一个布尔值，按取消按钮返回false,按下取消代码如下：
if not SaveDialog1.Execute then ......

DlgResult:boolean

DlgResult := SaveDialog1.Execute;
if DlgResult then showmessage('exec savedialog')
else showmessage('cancel savedialog');