program testsong;
{tests the song object}

var
  s:PSong;

begin
  s:=new(PMTSong,Init(4));
  dispose(s,Done);
end.