[Fer123]

На счет звука - можно использовать функцию Beep из kernel32.dll
вот пример

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.