Melodie mit Windows.beep

[RobinPan]

Hi,

ein Freund und ich versuchen uns gerade an einem Programm, mit dem man durch eine Eingabe in ein Editfeld eine Melodie erzeugen kann. In das Editfeld sollen Variablen eingegeben, werden die den Noten entsprechen (c=c, d=d, etc.)

Habe bereits ein Quellcode für die ausgabe von Noten gefunden, allerdings wurden die Noten als const. festgelegt. (Hab den Quellcode vereinfacht angehängt, allerdings den Link zum Thema nicht mehr gefunden)

Wie kann ich die Melodie durch das Editfeld einlesen lassen??

Danke im Voraus.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

const anzahl=2; c=1500; d=1000;e=900; halb = 500;
type TLied = array[0..1, 0..anzahl] of Integer;
const Lied : TLied = ((c,d,e),(500,500,500));
var I: Integer;
begin for I := 0 to anzahl do Windows.Beep(Lied[0, I], Lied[1, I]); end; ;

end;