Correct the Delete key behavior

Author: plaintool

src/TagEdit.pas

@@ -946,10 +946,9 @@ procedure TTagEdit.EditKeyDown(Sender: TObject; var Key: word; Shift: TShiftStat
     Key := 0;
   end
   else
-  if (Key = VK_DELETE) then
+  if (Key = VK_DELETE) and (SelectedTags.Count > 0) then
   begin
-    if SelectedTags.Count > 0 then
-      RemoveSelectedTags;
+    RemoveSelectedTags;
     Key := 0;
   end
   else