Andere MIDI-Instrumente

[zebrafalke]

Hallo,

Ich habe mit folgendem Code + Midi Komponente Drums hingekriegt:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
I, Dev: Integer;
begin
Dev:=0;
If MidiOutput1.NumDevs=0 then
begin
showmessage('Keine Soundkarte');
end
else
begin
for i:=MidiOutput1.Numdevs-1 downto 0 do
begin
MidiOutput1.DeviceID:=i;
end;
end;
MidiOutput1.DeviceID:=Dev;
MidiOutput1.Open;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
Timer1.Interval:=Trackbar1.Position;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Case(Times mod 4) of
0: begin
MidiOutput1.PutShort($89,36,0);
MidiOutput1.PutShort($99,36,127);
end;
2: begin
MidiOutput1.PutShort($89,40,0);
MidiOutput1.PutShort($99,40,127);
end;
end;
MidiOutput1.PutShort($12,42,0);
MidiOutput1.PutShort($99,42,64); inc(Times);


end;

Wie kann ich das jetzt mit anderen Instrumenten machen?
Hab mir schon das hier angegugt..aber irgendwie bin ich da zu dumm zu....*verzfeifel*

Vielleicht kann kann mir ja jemand helfen...

gruss

zebrafalke