diff --git a/components/jvcllaz/run/JvXPBar.pas b/components/jvcllaz/run/JvXPBar.pas
index 8d27e364b..95e5ee5ee 100644
--- a/components/jvcllaz/run/JvXPBar.pas
+++ b/components/jvcllaz/run/JvXPBar.pas
@@ -135,6 +135,8 @@ type
 
   TJvXPBarItemClass = class of TJvXPBarItem;
 
+  { TJvXPBarItem }
+
   TJvXPBarItem = class(TCollectionItem)
   private
     FActionLink: TJvXPBarItemActionLink;
@@ -189,6 +191,7 @@ type
     constructor Create(ACollection: TCollection); override;
     destructor Destroy; override;
     procedure Assign(Source: TPersistent); override;
+    function GetNamePath: string; override;
     property Data: Pointer read FData write FData;
     property DataObject: TObject read FDataObject write FDataObject;
     property Images: TCustomImageList read GetImages;
@@ -875,6 +878,14 @@ begin
     inherited Assign(Source);
 end;
 
+function TJvXPBarItem.GetNamePath: string;
+begin
+  if FName <> '' then
+    Result := FWinXPBar.GetNamePath + '.' + FName
+  else
+    Result := inherited GetNamePath;
+end;
+
 function TJvXPBarItem.IsAutoCheckStored: Boolean;
 begin
   Result := (ActionLink = nil) or not FActionLink.IsAutoCheckLinked;