[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'у присваивается пустое значение