Prevent category names in labels with ampersands being treated as accel chars

Fixes issue #4

Author: delphidabbler

Diff for: Src/FmSWAGImportDlg.pas

@@ -510,7 +510,9 @@ procedure TSWAGImportDlg.DisplaySnippetsForCategory;
     Exit;
   fCurrentCatID := fSortedCategories[CatIdx].ID;
   lblSelectSnippets.Caption := Format(
-    sSnippetListCaption, [fSortedCategories[CatIdx].Title]
+    sSnippetListCaption,
+    // double up ampersands to avoid being treated as accelerator characters
+    [StrReplace(fSortedCategories[CatIdx].Title, '&', '&&')]
   );
   Snippets := TList<TSWAGSnippet>.Create;
   try