На счет звука - можно использовать функцию Beep из kernel32.dll
вот пример
DELPHI Код:
var kernel32:integer;
procedure Init;
begin
kernel32 := loadLibrary('kernel32.dll');
end;
Procedure Free;
begin
FreeLibrary(kernel32);
end;
begin
if FromServer and (pck[1]=#$03) then CallFunction(kernel32,'Beep',2,[200,1000]); // где 200 это частота гудка, а 1000 время звучания в милисекундах
end.