synapse和https 500错误

Question

在网站https://www.google.com上通过授权以接收数据时出现问题。

我使用synapse HTTPSend。我做的连接如下：

procedure TForm1.Button2Click(Sender: TObject); 
var  httpsend: httpsend;

begin  httpsend := Thttpsend.Create;
httpsend.Sock.CreateWithSSL(TSSLOpenSSL);  
httpsend.Sock.SSLDoConnect;  
httpsend.HTTPMethod('GET', 'https://www.google.com');  
Memo1.Lines.LoadFromStream(httpsend.Document);       
Memo1.Lines.Add(httpsend.ResultCode.ToString);
end;