关于 CASE 的语句 ====================

Question

procedure Trisker.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
case saveonoff of
 0:canclose:=true;
 1:case messagedlg('Save 2?',mtConfirmation,
   [mbYes,mbNo,mbcancel],0) of
*   mrYes:begin btn2.click;canclose:=true; end;
    mrNo:canclose:=true;
    mrCancel:canclose:=false;
   end;
 2:case messagedlg('Save 1?',mtConfirmation,
   [mbYes,mbNo,mbcancel],0) of
*   mrYes:begin btn1.Click;canclose:=true; end;
    mrNo:canclose:=true;
    mrCancel:canclose:=false;
   end;
end;
end;带*号的两句为什么只执行 canclose:=true ?

Answer 1

执行这两句：
btn2.click;canclose:=true
btn1.Click;canclose:=true

Answer 2

canclose:=true;执行了，可是 btn.click 却不执行？