<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.Intf.Sound,
  Gorilla.Audio.FMOD.Intf.Channel;

procedure TForm1.Timer1Timer(Sender: TObject);
var LSound : IGorillaFMODSound;
    LMS, LLenMS : UInt32;
begin
  {...}
  LMS := FChannel.Position[FMOD_TIMEUNIT_MS];
  LSound := LChannel.GetCurrentSound() as IGorillaFMODSound;
  if Assigned(LSound) then
  begin
    LLenMS := LSound.Length[FMOD_TIMEUNIT_MS];
    Self.Caption := Format('sound #%s %d / %d', [IntToHex(NativeInt(LSound), 16), LMS, LLenMS]);
  end; 
end;