synapse и HTTPS

#include "httpsend.hpp"
#include "synacode.hpp"
#include "ssl_openssl.hpp"

void __fastcall TForm1::Button11Click(TObject *Sender)
{
THTTPSend *http = new THTTPSend;
TStringList* Sections = new TStringList;
TStringStream* Post = new TStringStream;
Post->WriteString("user=vasya");
Post->WriteString("password=petya");
http->Document->LoadFromStream(Post);
http->Protocol="1.1";
http->MimeType="application/x-www-form-urlencoded";
http->TargetHost="www.google.ru";
http->KeepAlive="Keep-Alive";
http->UserAgent="Opera/9.80 (Windows NT 6.1; U; ru) Presto/2.9.168 Version/11.51";
http->HTTPMethod("post","http://site.ru/");
Sections->LoadFromStream(http->Document);
Memo1->Text=Sections->Text;
delete http;
delete Sections;
delete Post;
}