[T-dayne]

Код:

procedure TData.ServerClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
if copy(socket.ReceiveText, 1, 2)='n_' then
 begin
  form1.label5.caption:=copy(socket.ReceiveText, 3, socket.ReceiveLength);
  server.Socket.Connections[0].SendText('n_'+form1.Edit1.Text);
 end;
end;

проверку на if проходит, проверил, сомнительная строка отмечена красным.
при выполении label'у присваивается пустое значение

[lmikle]

попробуй сначала забать весь ответ в локальную переменную, а потом уже работать с ним.

[T-dayne]

Благодарствую.
Все получилось

Код:

procedure TData.ServerClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
  var smessage: string;
begin
smessage:=socket.ReceiveText;
if copy(smessage,1,2)='n_' then
 begin
  form1.label5.caption:=copy(smessage,3,length(smessage));
  server.Socket.Connections[0].SendText('n_'+form1.Edit1.Text);
 end;
end;

[lmikle]

Там, похоже, если ты обратился к свойству, то оно очищается...