Текст проекта. unit Aniunit interface uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Animate type TForm1 class TForm Bomb TAnimated BombButton TButton procedure BombClick Sender TObject procedure BombChangeFrame Sender TObject private Private declarations public Public declarations end var Form1 TForm1 implementation uses MMSystem R .DFM procedure TForm1.BombClick Sender TObject begin with Bomb do if Frame 0 then Play True else Frame 0 end procedure TForm1.BombChangeFrame Sender TObject const snd Async 0001 play asynchronously begin if Bomb. Frame 8 then АМП1.321НЗ-01 SndPlaySound explode.wav, snd ASync end end. АМП1.321НЗ-01