delphi - Music notation UI VCL Component. Does it exist? -

I would like to write a simple application that needs to display notes on one digit (music notes on a music worker). This is not to write music notation software, it's just to show some notes on the staff in the way of reading. Of course, I can paint an image as a background with an empty employee and paint the notes ... but of course it takes time.

Is there a suitable VCL component?

Of course, rich, better, anyway, a basic component that can display notes, will be enough after one if an example of TMusicStaff is called MyMusicStaff, then I can add a note like this:

  MyMusicStaff.Add ([G4, F4, D4])  

(I'm not specifying the duration here, or if they are in the wire Or in the form of music, then this is just an idea).

I think I expressed myself

There is a possibility that one Drag notes on canvas using music note font.

For example:

  Process TFormMain.PaintBoxNotesPaint (Sender: Tubect); Var Canvas: Tiknavas; Start the canvas: = TPaintBox (Sender). Canvas; Canvas Fonts .name: = 'musky'; Canvas.font Size: = 30; Canvas.TextOut (10, 30, '& amp; = B = C = D = E = F = G = H = I =! = R = S = T = U ='! ');); End;  

returns: