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