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;