Кнопка со звуком

Code:

procedure TDdhSoundButton.MouseDown(

Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

inherited;

PlaySound (PChar (FSoundDown), 0, snd_Async);

end;

procedure TDdhSoundButton.MouseUp(Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

inherited;

PlaySound (PChar (FSoundUp), 0, snd_Async);

end;