anchor.diff:    Create( ATransport, 1024 );
   end;
   
  -procedure TBufferedTransportImpl.Close;
  -begin
  -  FTransport.Close;
  -end;
  -
   constructor TBufferedTransportImpl.Create( const ATransport: IStreamTransport;  ABufSize: Integer);
   begin
     inherited Create;
  
positive.code: procedure TSocketImpl.Close;
  begin
    inherited Close;
    if FOwnsClient
    then FreeAndNil( FClient);
  end;
  
  function TSocketImpl.GetIsOpen: Boolean;
  
negative.code: begin
    Result := (FWriteBuffer <> nil)
          and (FReadBuffer <> nil)
          and (FStream <> nil)
          and FStream.IsOpen;
  end;
  
  procedure TBufferedStreamImpl.Open;
  begin
    FStream.Open;
  end;
  
  function TBufferedStreamImpl.Read( const pBuf : Pointer; const buflen : Integer; offset: Integer; count: Integer): Integer;
  