通过一些测试，我合并了JAVAScript和 Delphi 代码，有一个工作区，请参考我的文章：http://firemonkeylessons.blogspot.tw/2015/01/get-htmljson-from-twebbrowser.html

这是我用来获取html文本的方法

function GetURL(const AURL: string): string;
          var
            HttpClient: THttpClient;
            HttpResponse: IHttpResponse;
            begin
              HttpClient := THTTPClient.Create;
              try
                HttpResponse := HttpClient.Get(AURL);
                // memo1.Text:=HttpResponse.ContentAsString();
                Result := HttpResponse.ContentAsString();
                finally
                HttpClient.Free;
              end;
            end;