Hardware Delphi

MessageBeep(word(-1));