* Additional check on action.

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;