anchor.diff:    {$ENDIF}
   End;
   
  -Procedure SoundSource.SetCallback(Callback: SoundSourceCallback; UserData: Pointer);
  +Procedure SoundSource.SetCallback(Callback: SoundSourceCallback);
   Begin
     _Callback := Callback;
  -  _UserData := Userdata;
   End;
   
   Procedure SoundSource.OnFinish;
   Begin
     If Assigned(_Callback) Then
     Begin
  -    _Callback(Self, _UserData);
  +    _Callback(Self);
       _Callback := Nil;
     End;
   End;
  
positive.code: Type
    SoundSource = Class;
  
    SoundSourceCallback = Procedure(MySource:SoundSource; UserData:Pointer); Cdecl;
  
    SoundSource = Class(TERRAObject)
      Protected
  
negative.code: 
        Procedure OnFinish();
  
        Procedure SetCallback(Callback:SoundSourceCallback);
  
        Property Handle:Integer Read _Handle;
        Property Sound:TERRA_Sound.Sound Read _Sound;
  