Fehlerton deaktivieren

[Van HelF]

hallo,
ich habe in ein memo eine speichern funktion eingebaut, diese wird mit strg + s aufgerufen, nur leider ertönt beim druck dieser kombination
der windows fehlersound, gibt es eine möglichkeit den abzuschalten ?

code :

Delphi-Quellcode:

if (ssCtrl in shift) then if key=83 then
begin
  if defaultsave='' then 
  begin 
    save_text;
    exit;
  end;
end;