Indy отправка сообщения

[Andrey85]

Подскажите пожалуйста. Необходимо передать сообщение другой машине при этом на ней с приходом сообщения производится звук. Использую IdTcpClient и IdTcpServer. При нажатии на кнопку отправить

var
    Mes,Mes_Server:string;
begin
Mes:='Вызов комнаты №: '+ FormServer.Name_room.Text; //из какой комнаты пришло
IdTCPClient1.Host:=FormServer.IP_admin.Text;     //IP куда посылаем
with IdTCPClient1 do
try
 Connect;
  try
   Writeln(Mes);
  finally
   Disconnect;
  end;
except
    Application.MessageBox('Ошибка соединения. Воспользуйтесь телефоном!','Информация',MB_OK+MB_ICONINFORMATION+MB_TOPMOST);
    exit;
end;
end;

При этом на компе куда посылаем должно выскочить сообщение Mes:='Вызов комнаты №: '+ FormServer.Name_room.Text;
и прозвучать какой-нибудь сигнал.
А при нажатии ОК обратно отправится сообщение:
Вызов принят!
Код для сервера:

procedure TFMediaServer.IdTCPServer1Exception(AThread: TIdPeerThread;
  AException: Exception);
var Mes:string;
begin
with AThread.Connection do  //выдает ошибку
try
 try
  Mes:=readln;
  Application.MessageBox('Вызов принят!','Информация',MB_OK+MB_ICONINFORMATION+MB_TOPMOST);
 except
  Application.MessageBox('Ошибка соединения. Воспользуйтесь телефоном!','Информация',MB_OK+MB_ICONINFORMATION+MB_TOPMOST);
 end;
finally
 Disconnect;
end;
end;

Нет опыта работы с сокетами,но очень надо. Подскажите может можно проще решить задачу. Если нет,то помогите с кодом.Заранее спасибо.

[BARNEY]

http://programmersforum.ru/showthread.php?t=59035