Source position: seqmid.inc line 368
procedure snd_seq_ev_set_pgmchange(
ev: Psnd_seq_event_t;
ch: cuchar;
val: cint
);