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