T_XMLWWKS20 = class(TComponent)
  private
    FActiveSocket: TCustomWinSocket;
    function getSocket: TCustomWinSocket;
    procedure setSocket(const Value: TCustomWinSocket);
  public
    ServerSocket: TServerSocket;
  public
    property ActiveSocket: TCustomWinSocket read getSocket write setSocket;
  public
    Buf : AnsiString;
  end;

procedure T_XMLWWKS20.InitServerSocket;
begin
  ServerSocket := TServerSocket.Create(Self);
  ServerSocket.ServerType         := stNonBlocking;
  ServerSocket.Tag                := 0;
  ServerSocket.ThreadCacheSize    := 10;
  ServerSocket.OnClientConnect    := ServSockClientConnect;
  ServerSocket.OnClientDisconnect := ServSockClientDisconnect;
  ServerSocket.OnClientError      := ServSockClientError;
  ServerSocket.OnClientRead       := ServSockClientRead;
  ServerSocket.OnListen           := ServSockListen;
  ServerSocket.Active             := False;
  ServerSocket.Port               := 5580;
  ServerSocket.Active             := True;
end;

procedure T_XMLWWKS20.ServSockClientRead(Sender: TObject;Socket: TCustomWinSocket);
var
  ReceiveDataSize: Integer;
  WS: AnsiString;
begin
  ReceiveDataSize := Socket.ReceiveLength;
  if ReceiveDataSize > 0 then
  begin
    Socket.ReceiveText(Buf);
    ActiveSocket := Socket;
  end;
end;

function T_XMLWWKS20.processWWS2KS(): Boolean;
begin
    ActiveSocket.SendText(Buf);
    SetLength(Buf, 0);
    ActiveSocket := nil;
end;

  TForm4 = class(TForm)
    ServerSocket: TServerSocket;
    Memo1: TMemo;
    ClientSocket: TClientSocket;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure ClientSocketRead(Sender: TObject; Socket: TCustomWinSocket);
  end;

procedure TForm4.Button1Click(Sender: TObject);
var
  S : ansiString;
begin  
  ClientSocket.Port := 5580;
  ClientSocket.Address := 'localhost';
  ClientSocket.ClientType := ctNonBlocking;
  ClientSocket.Active := True;
  begin
    ClientSocket.Socket.SendBuf(ReceiveData[0], ReceiveDataSize);
    ClientSocket.Socket.Write(0);
  end;
end;

procedure TForm4.ClientSocketRead(Sender: TObject; Socket: TCustomWinSocket);
var
  s: String;
begin
  ReceiveDataSize := Socket.ReceiveLength;
  SetLength(ReceiveData, ReceiveDataSize);
  if ReceiveDataSize > 0 then
  begin
    Socket.ReceiveText(S);
    Memo1.Lines.Text := S;
    Buf := S;
    processWWS2KS();
  end;
end;