procedure Sound(Frequency, Duration: Integer);
asm
 push edx
 push eax
 mov eax, Win32Platform
 cmp eax, VER_PLATFORM_WIN32_NT
 jne @@9X
 call Windows.Beep
 ret
@@9X:
 pop eax
 pop edx
 push ebx
 push edx
 mov bx, ax
 mov ax, 34DDh
 mov dx, 0012h
 cmp dx, bx
 jnc @@2
 div bx
 mov bx, ax
 in al, 61h
 test al, 3
 jnz @@1
 or al, 3
 out 61h, al
 mov al, 0B6h
 out 43h, al
@@1:
 mov al, bl
 out 42h, al
 mov al, bh
 out 42h, al
 call Windows.Sleep
 in al, 61h
 and al, 0FCh
 out 61h, al
 jmp @@3
@@2:
 pop edx 
@@3:
 pop ebx
end;