How would I improve this Karaoke machine code?

Question

I was looking at a large collection of Import/Export user suggestions the other day and it dawned on me that we finally have MIDI import in Mathematica 9, which is rather interesting since MIDI supports karaoke text events, which can be run in Mathematica with scheduled tasks.

So I wrote a simple code for a Karaoke machine function, which plays a given MIDI karaoke file and highlights the text that needs to be sung at the same time.

$DisplayEvents = {
 {0.0, {Red, FontSize -> 18}}, 
 {0.5, {Orange, FontSize -> 18}}, 
 {1.0, {Gray, FontSize -> 18}}};

TextEvents[file_] := Module[{events},
 events = Cases[Import[file, "Metadata"], {time_, "TextEvent" -> text_}, 2];
 events = Select[events, Not[StringMatchQ[#[[2, 2]], "\\@*"]] &];
 Map[{#[[1]], StringReplace[#[[2, 2]], {"\\" -> "\n\n", "/" -> "\n"}]} &, 
  events]];

ScheduleTextEvents[events_] := Module[{},
 Outer[With[{e = #1, d = #2},
  RunScheduledTask[
   Unevaluated[displayEvent[e] = Last[d]], {Max[0.0, First[e] + First[d]]}]] &, 
 events, $DisplayEvents, 1]]

Cleanup[] := { Cell[MakeBoxes@Row[{
 Button["Stop Music", Sound`StopMIDI[]; RemoveScheduledTask /@ ScheduledTasks[]], 
 Button["Close Notebook", NotebookClose[EvaluationNotebook[]]]}]]}

KaraokeMachine[file_] := Module[{lyrics, song, events},
 song = Import[file];
 events = TextEvents[file];
 Map[(displayEvent[#] = {White, FontSize -> 18}) &, events];
 CreateDocument[ ExpressionCell[
  With[{t = events}, 
  Dynamic[Row[With[{x = #}, Style[x[[2]], displayEvent[x]]] & /@ t]]], 
  "Output", ShowCellBracket -> False], Background -> Black, 
  WindowElements -> {"VerticalScrollBar"}, 
  Deployed -> True, DockedCells->Cleanup[]];
 EmitSound[song];
 ScheduleTextEvents[events];
]

Which can then be called by giving it a karaoke file (for example this song by Frank Sinatra):

KaraokeMachine[ "myway.kar"]

My question mostly revolves about ideas on how I can improve on this (code improvements as well as suggestions on how to implement features, like fading in/out text).

(Note: Mathematica uses the Jlink/Java MIDI implementation on MacOSX, which means that you may run into this issue on newer versions of MacOSX. I haven't been able to find a solution for this yet).