<br />
<b>Warning</b>:  Undefined array key "translationlc" in <b>/usr/www/users/fabook/_diggets/doc/v2/lib/plugins/translation/action.php</b> on line <b>237</b><br />
<br />
<b>Warning</b>:  Cannot modify header information - headers already sent by (output started at /usr/www/users/fabook/_diggets/doc/v2/lib/plugins/translation/action.php:237) in <b>/usr/www/users/fabook/_diggets/doc/v2/inc/parser/code.php</b> on line <b>33</b><br />
<br />
<b>Warning</b>:  Cannot modify header information - headers already sent by (output started at /usr/www/users/fabook/_diggets/doc/v2/lib/plugins/translation/action.php:237) in <b>/usr/www/users/fabook/_diggets/doc/v2/inc/parser/code.php</b> on line <b>34</b><br />
<br />
<b>Warning</b>:  Cannot modify header information - headers already sent by (output started at /usr/www/users/fabook/_diggets/doc/v2/lib/plugins/translation/action.php:237) in <b>/usr/www/users/fabook/_diggets/doc/v2/inc/parser/code.php</b> on line <b>35</b><br />
uses
  Gorilla.Audio.FMOD,
  Gorilla.Audio.FMOD.Sound;
  
var 
  FFMOD : TGorillaFMODAudioManager;

procedure TForm1.FormShow(Sender: TObject);
var LPath : String;
    LSound : IGorillaFMODSound;
begin
  FFMOD := TGorillaFMODAudioManager.Create(Self);
  FFMOD.Parent := Form1;
  LPath := IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0))) + 'demo.mp3';
  LSound := FFMOD.LoadSoundFromFile(LPath);
  FFMOD.PlaySound(LSound, nil, false, 0);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  // Timer1.Interval := 33;
  FFMOD.Update();
end;