diff --git a/rtl/objpas/classes/action.inc b/rtl/objpas/classes/action.inc
index e1f890311f..3775bdd5f9 100644
--- a/rtl/objpas/classes/action.inc
+++ b/rtl/objpas/classes/action.inc
@@ -79,7 +79,8 @@ end;
 
 function TBasicActionLink.Update: Boolean;
 begin
-  Result := FAction.Update;
+  if Assigned(Faction) then
+    Result := FAction.Update;
 end;
 
 {****************************************************************************}