Source position: extdlgs.pas line 163
protected procedure TCalculatorDialog.OnDialogCloseQuery(
Sender: TObject;
var CanClose: Boolean
);