Hier gibt es eine Umrechnungstabelle + Erklärung zum mathematischen Hintergrund:
http://www.phys.unsw.edu.au/jw/notes.html
Verwende ein Array um die Frequenzen abzulegen:
Delphi-Quellcode:
TMidiNoteFreqArray = array[21..108] of float;
const
MidiNoteFreqArray : TMidiNoteFreqArray = (
27.5, ... {viele weitere Frequenzen hier}, 4186);
Man kann auch die Formeln verwenden, um alle Frequenzen zwischen MidiNote 0 bis 127 auszurechnen.