[anghela]

Пишу клиент-серверное приложение с помощью компонентов TClientSocket и TServerSocket. Мне нужно из полей на форме клиента отправлять данные с помощью пакетов на сервер (на сервере бд), там их обработать и отправлять результаты обратно клиенту на форму.
Установила соединение на клиенте:

Код:

 if ClientSocket1.Active then
  begin
    ClientSocket1.Close;
    Exit;
  end;
  ClientSocket1.Host:='78.85.164.232';
  ClientSocket1.Port:=1001;
  ClientSocket1.Open;
  ShowMessage('Соединение установлено');
  ClientSocket1.Socket.SendText(Edit1_ssud_schet.Text);

пытаюсь заодно для проверки отправить сообщение на сервер.

На сервере написала код:

Код:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Memo1.Lines.Add(Socket.ReceiveText);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ServerSocket1.Open;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
   ServerSocket1.Close;
end;

Соединение проходит успешно, но данные на сервере не появляются.
Подскажите в чем ошибка.
Мне нужно передавать данные из текстовых полей, обрабатывать их на сервере, если все хорошо, записать полученные данные в бд, если где-то ошибка - отправить соответствующее сообщение на клиент.
Что мне нужно сделать для этого?