procedure OnPlayerStart(PlayerControl: IPlayerControl; Item: IPlaylistItem);
var sl: TStringList;
begin
  sl := TStringList.Create;
  sl.Add(Item.GetArtist + ' - ' + Item.GetTitle);
  sl.SaveToFile('c:\NowPlaying.txt');
  sl.Free;
end;

begin
end.