Source position: seqmid.inc line 333
procedure snd_seq_ev_set_noteon(
ev: Psnd_seq_event_t;
ch: cuchar;
key: cuchar;
vel: cuchar
);