diff --git a/rtl/objpas/classes/action.inc b/rtl/objpas/classes/action.inc
index 3775bdd5f9..33567efaf1 100644
--- a/rtl/objpas/classes/action.inc
+++ b/rtl/objpas/classes/action.inc
@@ -45,6 +45,8 @@ end;
 
 function TBasicActionLink.Execute(AComponent: TComponent): Boolean;
 begin
+  if not Assigned(FAction) then 
+    exit;
   FAction.ActionComponent := AComponent;
   try
     Result := FAction.Execute;