procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var i:word;
begin
i:=MessageDlg('是否要关闭该窗口？',mtConfirmation,[mbYes,mbNo],1);
if i=6           //为什么是6，而不是1或0？
then CanClose := true
else CanClose := false;


end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
showmessage('窗口马上关闭了！');
action:=cafree;          //这句什么意思？
end;