3.3.1 no result set in TBasicActionLink.Update

https://gitlab.com/freepascal.org/fpc/source/-/blob/main/rtl/objpas/classes/action.inc#L82

If FAction is not assigned then result is not set.