From 2accac30ae2dd3758e48ebaa0818b62d2e3db842 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Tue, 13 Aug 2024 10:24:36 +0200
Subject: [PATCH] * Check if action is assigned before calling update on it

---
 rtl/objpas/classes/action.inc | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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;
 
 {****************************************************************************}