Using error sound instead of default beep, where appropriate

Source commit: 1b2973e59d3ed6c97f0557439bed6765f14a89f5

source/forms/Login.cpp

@@ -790,7 +790,7 @@ void __fastcall TLoginDialog::SessionTreeKeyPress(TObject * /*Sender*/, System::
       }
       if (!SitesIncrementalSearch(FSitesIncrementalSearch + Key, false, false))
       {
-        MessageBeep(0);
+        MessageBeep(MB_ICONHAND);
       }
       Key = 0;
     }
@@ -1495,7 +1495,7 @@ void __fastcall TLoginDialog::CMDialogKey(TWMKeyDown & Message)
       bool Reverse = Shift.Contains(ssShift);
       if (!SitesIncrementalSearch(FSitesIncrementalSearch, true, Reverse))
       {
-        MessageBeep(0);
+        MessageBeep(MB_ICONHAND);
       }
       Message.Result = 1;
       return;

source/packages/my/UpDownEdit.pas

@@ -319,7 +319,7 @@ begin
   if not IsValidChar(Key) then
   begin
     Key := #0;
-    MessageBeep(0)
+    MessageBeep(MB_ICONHAND)
   end;
   if Key <> #0 then
   begin
@@ -437,7 +437,7 @@ procedure TUpDownEdit.UpClick(Sender: TObject);
 var
   OldText: string;
 begin
-  if ReadOnly then MessageBeep(0)
+  if ReadOnly then MessageBeep(MB_ICONHAND)
   else begin
     FChanging := True;
     try
@@ -459,7 +459,7 @@ procedure TUpDownEdit.DownClick(Sender: TObject);
 var
   OldText: string;
 begin
-  if ReadOnly then MessageBeep(0)
+  if ReadOnly then MessageBeep(MB_ICONHAND)
   else begin
     FChanging := True;
     try