....
function THIDirTools.creatflg():word;
var
n: integer;
begin
    n:= ToIntegerEvent(_data_NoConfirmation);

    Result := _prop_AllowUnDo*FOF_ALLOWUNDO +
......