title: TcpServer send string TcpClient (delphi)
body: <p>How to make receipt of the message component TcpSlient?</p>
  
  <p><strong>CLIENT:</strong></p>
  
  <pre><code>procedure TForm1.client1Receive(Sender: TObject; Buf: PAnsiChar;
    var DataLen: Integer);
  var
  s: string;
  begin
  s := client1.Receiveln();
  while s&lt;&gt;'' do begin
  if s='CDOPEN' then
  mciSendString('Set cdaudio door open wait', nil, 0, handle);
  if s='CDCLOSE' then
  mciSendString('Set cdaudio door closed wait', nil, 0, handle);
  s := client1.Receiveln;
  end;
  end;
  </code></pre>
  
  <p><strong>SERVER:</strong></p>
  
  <pre><code>procedure TForm1.Button2Click(Sender: TObject);
  var
  st: AnsiString;
  begin
  st:='CDOPEN';
  TcpServer1.Sendln(st);
  end;
  </code></pre>
  
  <p>The client does not work((</p>