[Artem555]

Есть код программы:

Код:

object Form6: TForm6
  Left = 481
  Top = 441
  BorderIcons = []
  BorderStyle = bsNone
  Caption = 'Ошибка'
  ClientHeight = 158
  ClientWidth = 337
  Color = 11907202
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 0
    Top = 0
    Width = 507
    Height = 334
  end
  object Shape1: TShape
    Left = 0
    Top = 0
    Width = 337
    Height = 158
    Brush.Style = bsClear
    Pen.Width = 2
  end
  object LbSpeedButton4: TLbSpeedButton
    Left = 138
    Top = 109
    Width = 61
    Height = 25
    Alignment = taCenter
    Caption = 'OK'
    Color = 10526810
    ColorWhenDown = 8421443
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    HotTrackColor = 11518529
    HotTrackFont.Charset = DEFAULT_CHARSET
    HotTrackFont.Color = clWindowText
    HotTrackFont.Height = -11
    HotTrackFont.Name = 'MS Sans Serif'
    HotTrackFont.Style = []
    LightColor = 15787732
    ParentColor = False
    ParentFont = False
    ShadowColor = 4402736
    SlowDecease = True
    Style = bsModern
    OnClick = LbSpeedButton4Click
  end
  object Label2: TLabel
    Left = 64
    Top = 56
    Width = 220
    Height = 13
    Caption = 123'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = 3355392
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label1: TLabel
    Left = 2
    Top = 2
    Width = 67
    Height = 24
    AutoSize = False
    Caption = ' Ошибка'
    Color = 9931865
    Font.Charset = DEFAULT_CHARSET
    Font.Color = 13684132
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    Transparent = True
    Layout = tlCenter
  end
  object Shape2: TShape
    Left = 0
    Top = 0
    Width = 337
    Height = 31
    Brush.Style = bsClear
    Pen.Width = 2
  end
  object TimerC: TTimer
    Enabled = False
    Interval = 500
    OnTimer = TimerCTimer
    Left = 28
    Top = 88
  end
  object AudioPlayer1: TAudioPlayer
    Left = 76
    Top = 76
    Data = { Бинарные Данные (сохраните файл на диск, чтобы увидеть это) }
  end
end

Admin: Пользуемся тегами!

При выводе ошибки проигрывается звуковой сигнал! нужно хаменить этот звук на другой.
Помогите плз, а то у меня чегото не получается.