Delphi [Comando] Rotina de speak

[Kaao]

Explicando de forma direta e simples, o speak é tipo uma "música" natural do computador.
Exemplo de speak:

Windows.Beep(100,300);

No caso, o 100 é a potencia, e o 300 é o tempo (1000 = 1 segundo).

Fiz algumas rotinas de speak e dar para ser aproveitada.
Rotina 1

Windows.Beep(100,300);
sleep(300);
Windows.Beep(125,300);
sleep(300);
Windows.Beep(150,300);
sleep(300);
Windows.Beep(175,300);
sleep(300);
Windows.Beep(200,300);
sleep(300);
Windows.Beep(175,300);
sleep(300);
Windows.Beep(150,300);
sleep(300);
Windows.Beep(125,300);
sleep(300);

Rotina 2

Windows.Beep(300,500);
sleep(400);
Windows.Beep(280,400);
sleep(300);
Windows.Beep(260,300);
sleep(200);
Windows.Beep(240,200);
sleep(100);
Windows.Beep(220,100);

Rotina 3

Windows.Beep(500,50);
sleep(100);
Windows.Beep(400,50);
sleep(100);
Windows.Beep(300,50);
sleep(100);
Windows.Beep(200,50);
sleep(100);
Windows.Beep(100,50);
sleep(100);

Rotina 4

Windows.Beep(100,50);
sleep(100);
Windows.Beep(200,50);
sleep(100);
Windows.Beep(300,50);
sleep(100);
Windows.Beep(400,50);
sleep(100);
Windows.Beep(500,50);
sleep(100);

Rotina 5

Windows.Beep(800,50);
sleep(100);
Windows.Beep(810,50);
sleep(100);
Windows.Beep(820,50);
sleep(100);
Windows.Beep(830,50);
sleep(100);
Windows.Beep(840,50);
sleep(100);
Windows.Beep(850,50);
sleep(100);
Windows.Beep(860,50);
sleep(100);
Windows.Beep(870,50);
sleep(100);
Windows.Beep(880,50);
sleep(100);
Windows.Beep(890,50);
sleep(100);
Windows.Beep(900,50);
sleep(100);

Rotina 6

Windows.Beep(1000,150);
sleep(200);
Windows.Beep(1200,150);
sleep(200);
Windows.Beep(1400,150);
sleep(200);
Windows.Beep(1600,150);
sleep(200);
Windows.Beep(1500,150);
sleep(200);
Windows.Beep(1400,150);
sleep(200);
Windows.Beep(1300,150);
sleep(200);
Windows.Beep(1200,150);
sleep(200);
Windows.Beep(1100,150);

Rotina 7

Windows.Beep(500,150);
sleep(200);
Windows.Beep(495,140);
sleep(195);
Windows.Beep(490,130);
sleep(190);
Windows.Beep(485,120);
sleep(185);
Windows.Beep(480,110);
sleep(180);
Windows.Beep(475,100);

Crétidos:

• Mateus por te me mostrado este comando.
• Kaao por te feito a rotina.