diff --git a/source/main.pas b/source/main.pas
index dec618d4..b379395a 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -2069,6 +2069,8 @@ begin
   FActionList1DefaultCaptions := TStringList.Create;
   FActionList1DefaultHints := TStringList.Create;
   for i:=0 to ActionList1.ActionCount-1 do begin
+    Action := TAction(ActionList1.Actions[i]);
+    Action.ShortCut := AppSettings.ReadInt(asActionShortcut1, Action.Name, Action.ShortCut);
     FActionList1DefaultCaptions.Insert(i, Action.Caption);
     FActionList1DefaultHints.Insert(i, Action.Hint);
   end;
diff --git a/source/preferences.pas b/source/preferences.pas
index 2b919d54..9e05d855 100644
--- a/source/preferences.pas
+++ b/source/preferences.pas
@@ -1244,6 +1244,7 @@ begin
   end;
 end;
 
+
 procedure TfrmPreferences.TreeShortcutItemsInitNode(Sender: TBaseVirtualTree; ParentNode, Node: PVirtualNode;
   var InitialStates: TVirtualNodeInitStates);
 var