midi sound: noten erzeugen

[XeRo]

Ich verwende folgendes Script um einen midi sound zu erzeugen:

Delphi-Quellcode:

uses ...,mmsystem;

(...)
    procedure Play(Fnote:Byte);
  private
    mididaten:DWord;
  public
    function GetmidiHandle: HmidiOut;
  end;

var
  Form1: TForm1;
  midiout:HMIDIOUT;

(...)

function TForm1.GetMidiHandle: HMIDIOUT;
begin
 Result:=midiOut;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
if (midiout=0) and not(csDesigning in ComponentState) then
midiOutOpen(@midiout, MIDI_Mapper,0,0,Callback_Null);
end;

procedure TForm1.Play(Fnote:Byte);
begin
if midiout<>0 then
 begin
  mididaten:= $FF0090 or (Fnote shl 8);
  midioutShortMsg(midiOut, midiDaten);
 end;
end;

Das Script funktioniert super, aber ich weiß nicht wie ich FNote verändern muss um noten (wie a, b, c, d,...) zu erhalten :gruebel: