Und Töne kann man "gut" mit dem hier machen:
function Beep(dwFreq: Cardinal; dwDuration: Cardinal): LongBool;
aus der
Unit "Windows"
Da gibts bloß ein Problem: die Töne kommen dann aus dem PC also vom PC-Lautsprecher (den wir alle vom BIOS her kennen... Piep...Piep) (und wenns zu viel Piept, dann ist den Computer im A....)

!
Es ist unmöglich, witzig zu sein ohne ein bisschen Bosheit. Die Bosheit eines guten Witzes ist der Widerhaken, der ihn haften lässt. - Georg Christoph Lichtenberg