Вопрос по клиент-серверным приложениям

[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;

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

[Stilet]

ClientSocket1.Open;
ShowMessage('Соединение установлено');

Откуда такая уверенность что установленно?
ИМХО ClientSocket1.Socket.SendText(Edit1 _ssud_schet.Text); нужно вызывать в событии клиента OnConnect.

Мне нужно передавать данные из текстовых полей

Тогда рекомендую бросить классические сокеты Делфи и передавать\принимать компонентами INDI - IdHTTP и IdHTTPServer. Они намного удобнее для передачи текстовых данных.

[anghela]

сказали использовать именно клиент и сервер сокет

[Stilet]

Ладно. Тогда с коннектом разберись как я предложил. Не дожидаешься ты его ИМХО.