TAsyncCommand: ```pas function WithEventBeforeStart(aBeforeStart: TProc) ... ``` TCommandAction: ```pas function WithEventOnUpdate(AUpdateProc: TProc<TCommandAction>) ... ``` Change: `TProc<TCommandAction>` to `TProc`