Função fica emitindo um beep, chato.. tem como remover?

 with Screen.ActiveForm do
 begin
  Key := AnsiUpperCase(Key)[Length(Key)];
  if (Key = 13) then
  begin
   Key := 0;
   if (ActiveControl is TJvComboEdit) then
   begin
    (ActiveControl as TJvComboEdit).Button.Click;
    Key := 0;
    Perform(Wm_NextDlgCtl, 0, 0);
   end
   else
   begin
    if (ActiveControl is TJvDBComboEdit) then
    begin
     (ActiveControl as TJvDBComboEdit).Button.Click;
     Key := 0;
     Perform(Wm_NextDlgCtl, 0, 0);
    end
    else
     Perform(Wm_NextDlgCtl, 0, 0);
   end;
  end;
  if (Key = 27) and (Screen.ActiveForm <> nil) then
  begin
   Key := #0;
   try
    if (FindComponent(´BtnCancelar´) <> nil) and (TBitBtn(FindComponent(´BtnCancelar´)).Enabled) then
     TBitBtn(FindComponent(´BtnCancelar´)).Click
    else
     Close;
   except
   end;
  end;
  Result := Key;
 end;
end;