onst<br> MHZ:Array[8] of Integer=(523,587,659,698,784,880,988,1047);<br>var<br> I:Integer;<br><br>for I:=Low(MHZ) to High(MHZ) do<br> windows.beep(MHZ,500);<br><br>windows.beep(523,500); //1<br> windows.beep(587,500); //2<br> windows.beep(659,500); //3<br> windows.beep(698,500); // 4<br><br> windows.beep(784,500); // 5<br> windows.beep(880,500); // 6<br> windows.beep(998,500); // 7<br> windows.beep(1047,500);试试<br>