//Query Via Webservice;
  TWSConnection = class(TComponent)
    private
      FHost: String;
      FPort: Integer;
      FUser: String;
      FPassword: String;
      FDatabase: String;
      FJSON: TJSONObject;
      FEncodedSQL: String;
      FStrings: TStrings;
      FWSURL: String;
      FEncodedResponse: String;
      FDecodedResponse: String;
      FHTTP: TNetHTTPClient;
      procedure ClearJSON;
      function  JSONText(AJSON: TJSONObject): String;
      procedure ParsingText(AText: String);
      function  JSONString(AJSON: TJSONObject; ATree: String): String;
    public
      constructor Create(AOwner: TComponent); override;
      destructor  Destroy; override;
      function    Connect: Boolean;
    published
      property Host: String read FHost write FHost;
      property Port: Integer read FPort write FPort;
      property User: String read FUser write FUser;
      property Password: String read FPassword write FPassword;
      property Database: String read FDatabase write FDatabase;
      property WSURL: String read FWSURL write FWSURL;
  end;