procedure BtnClick(hBtn:HWND); begin WizardForm.CancelButton.Click; end; ... BtnSetEvent(hBtn,BtnClickEventID,WrapBtnCallback(@BtnClick,1));