TServerSocket Delphi

[Xaker_Two]

Есть такой код для события TServerSocketClientRead:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
TempT: String;
begin
TempT:=Socket.ReceiveText;
if pos('#type3', TempT)<>0 then function2;
if pos('#type3', TempT)<>0 then function3(TempT);
if pos('#type1', TempT)<>0 then function1(TempT);
end;

Выдается следующая ошибка(см скрин)
и идет указание на обработку последнего сообщения! У меня принципе есть догадка из-за чего это происходит но можно узнать точную причину и то как это решить!

[Stilet]

Это значит ты не указал IP или порт куда отправлять.
По крайней мере у меня именно такая ошибка была когда я по невнимательности эти параметры не задавал.

[Xaker_Two]

не проверял... но сообщение от клиента приходит корректно! может поможете кусочком кода или более детальной подсказкой) вообще я предполагал что это именно из-за приостановки данного события в связи с ожидание окончания процедуры. ну ладно попробую поплясать с бубном но подсказку всеравно буду ждать

Все пасибки я вспомнил одно отличие сервера от клиента: чтобы отправить с клиента надо просто написать

Form1.Check.Socket.SendText('text')

а на сервере надо писать

Form1.Check.Socket.Connections[i].SendText('text')

именно в этом и была проблема) вы меня подтолкнули к этому большое пасибо

[Stilet]

Я если честно уже не использую этот компонент, и вылазила у меня эта ошибка при использовании Win API.
На каком конкретно операторе вылазит ошибка? Пошаговку можешь провести?

[Xaker_Two]

Так с сервером я разобрался и моё предположение было верно! это происходит из-за того что я пытаюсь отправить сообщение клиенту из функции! Теперь такой же косяк в клиенте при том уже при измененной структуре как быть? Вот кусок кода

if pos('#type1', ReceiveText)<>0 then
  begin
  if CheckCorrect(ReceiveText) then Socket.SendText('text')
  else ShowMessage('text');
  end;

RecieveText это переменная в которую записан текст из Socket-а

[Xaker_Two]

Вопрос по контексту 5 предложения: косяк немного другого типа! он заключается в том что в функции CheckCorrect(ReceiveText) вызванной из процедуры принятия сообщений сервером содержится код работы с реестром! и если его убрать или он не будет выполнятся то все будет ок но если он вступает в действие то все краш( Чем это может быть вызванно?? скриншот с ошибкой будет приложен позже(в нем говорится о том что была произведена попытка произвести действо с объектом не являющимся сокетом)