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