* TBasicActionLink.Update must always return value. Fix issue #41070

rtl/objpas/classes/action.inc

@@ -82,7 +82,9 @@ end;
 function TBasicActionLink.Update: Boolean;
 begin
   if Assigned(Faction) then
-    Result := FAction.Update;
+    Result := FAction.Update
+  else
+    Result:=False;
 end;
 
 {****************************************************************************}