Отправить и получить ответ

[Andrey85]

Здравствуйте. Подскажите пожалуйста как реализовать следующую задачу. Надо по нажатию кнопки на одном компьютере отправить текстовое сообщение на другой. Когда на другой сообщение прейдет надо после нажатия на ОК отправить ответ(тоже текст).Пробовал через сокеты Client\Server, но ничего не получается. Читал литературу, тоже не получается как написано. Если можно помогите, может что не так делаю. Располагаю компоненты один Сервер, другой Клиент. Т.е. создаю два приложения. Указываю порты у обоих 2000, host пока на одном компьютере пробую поэтому пишу 127.0.0.1. На клиенте по нажатию кнопки пишу

procedure TForm1.Button1Click(Sender: TObject);
begin
Clientsocket1.Active := True;
Clientsocket1.Socket.SendText('I am client');
end;

На сервере

Принимаю сообщение с клиента
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
   ukaz : string;
begin
ukaz := socket.ReceiveText;
end;
Посылаю ответ
procedure TForm1.ServerSocket1ClientWrite(Sender: TObject;
  Socket: TCustomWinSocket);
begin
Socket.SendText('I am Server')
end;

Ответ побывал писать и в ServerSocket1ClientRead, но эффект тот же.
Помогите,кто может. Заранее спасибо.

[Пепел Феникса]

http://pblog.ru/?p=91
http://pblog.ru/?p=100