ServerSocket и ClientSocket. Сервер не обрабатывает onClientRead

[Rin]

Здравствуйте, чюлавеки, за помощь благодарен навеки). Если без шуток, то проблема такова. Тестю на одном компе. При нажатии у клиента на кнопку "подключение и отправка" говорит, что подключен. Сервер тоже говорит, что принял клиента. А значит ClientConnect и ServerAccept обрабатываются, следовательно связь установлена. Но вот на сервере не срабатывает событие onServerRead. В чем может быть загвоздка?

Код клиента.

procedure TForm1.Button1Click(Sender: TObject);// подключение и отправка
begin
//   эдит1 = 127.0.0.1
clientsocket1.Host:=Edit1.Text; 
clientsocket1.Address:=Edit1.Text;

// порт =48000
clientsocket1.Port:=StrToInt(Edit2.Text);
clientsocket1.Active:=True;
clientsocket1.Socket.SendText(Edit3.Text);
end;

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

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
showmessage('подключились');
end;

procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
  showmessage(inttostr(ErrorCode));
end;

В сервере выставлен порт 48000. Код сервера.

procedure TForm1.FormCreate(Sender: TObject);
begin
serversocket1.Active:=true;
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
 showmessage(socket.ReceiveText);
end;


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  serversocket1.Close;
end;

procedure TForm1.ServerSocket1Accept(Sender: TObject;
  Socket: TCustomWinSocket);
begin
showmessage('подключен');
end;

Заранее благодарен, извините, что занял время.

[Stilet]

clientsocket1.Active:=True;
clientsocket1.Socket.SendText(Edit3 .Text);

Видимо потому что ты активируешь сокет, но не дожидаясь его коннекта посылаешь строку. Иногда я вижу такое решение в инете:

clientsocket1.Active:=True;
sleep(1000);
clientsocket1.Socket.SendText(Edit3.Text);

Это типа "быдлокодом" считается, но зато доказывает, что дождаться коннекта необходимо.
SendText помести в OnConnect клиента, тогда хотя бы будешь точно знать что передача пойдет точно после коннекта удачного.

[Rin]

Спасибо, Stilet, что откликнулись. Добавил 2-ую кнопку, куда поместил send. Подключаюсь, showmessage вылазиют от клиента и от сервера, жмахаю пару раз "Ок", жду некоторое время, жмахаю send, но чуда не происходит (.

UPD
Как всегда, необдуманные действия приводят к необдуманным ситуациям. Если в serversocket выставить stThreadBlocking, то onClientRead не будет обрабатываться.