checkbox в форме обновления и закрытия возможности

[Alex Che]

У меня CancelOldToDo := TRUE; стоит в OnOpenForm изначально. Вот его полный текст:

CurrForm.Step1.XPOS := 4400;
CurrForm.Step1.YPOS := 0;
CurrForm.Step2.XPOS := 4400;
CurrForm.Step2.YPOS := 0;
FormWidth := CurrForm.Cancel.XPOS + CurrForm.Cancel.WIDTH + 220;
CurrForm.XPOS := ROUND((CurrForm.WIDTH - FormWidth) / 2,1) + CurrForm.XPOS;
CurrForm.YPOS := 3000;
CurrForm.HEIGHT := CurrForm.Cancel.YPOS + CurrForm.Cancel.HEIGHT + 220;
CurrForm.WIDTH := FormWidth;

UpdateEditable;
CancelOldToDo := TRUE;
CreateNewToDo := FALSE;
SetSubMenu(CurrMenuType,TRUE);

А ShowStep вообще нет, наверное, от версии зависит.