[Artem555]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115

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: Пользуемся тегами!

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

[lmikle]

Ну и нафиг нам DFM??? Ты паскалевский код дай, где происходит твоя ошибка. Надо же понять, что ты там делаешь.