delphi и https

Как я понял такой это геморой шикарный.
После того как погуглил
кто что скажет по этому поводу?

 

Ну и в чем проблема то? Indy прекрасно справляется с https

 

И не только Indy но и ICS и Synapse
ТС, в чем проблема?

 

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
   try


    invite :=Edit1.Text;
    Http := TIdHTTP.Create(Self);
    Data := TStringList.Create;
    CM := TidCookieManager.Create(Http);
    Http.AllowCookies := true;
    Http.CookieManager := CM;
    Http.HandleRedirects := true;

    Http.Request.Host:='www.сайт.ru';
    Http.Request.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10';
    Http.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
    Http.Request.AcceptLanguage:='ru,en-us;q=0.7,en;q=0.3';
    Http.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';
    Http.Request.Referer:='http://рефер/';

    OnePage :=HTTP.Get('https://www.сайт.ru/registration/personal/index.php?invite='+invite);
   except
    Memo1.Text :=OnePage;
   end;

в мемо пусто
в Launch HTTPAnalyzer Stand-alone никаких движений
чего такое не въехал
в юсес
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
IdBaseComponent, IdCookieManager, IdIOHandler, IdIOHandlerSocket,
IdSSLOpenSSL;

аналогично с пост

Code:

try
    Http := TIdHTTP.Create(Self);
    Data := TStringList.Create;
    CM := TidCookieManager.Create(Http);
    Http.AllowCookies := true;
    Http.CookieManager := CM;
    Http.HandleRedirects := true;

    Http.Request.Host:='www.сайт.ru';
    Http.Request.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10';
    Http.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
    Http.Request.AcceptLanguage:='ru,en-us;q=0.7,en;q=0.3';
    Http.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';
    Http.Request.Referer:='https://www.сайт.ru/ru/registration/personal/index.php?invite='+invite;

    Data.Add('value="??????"');
    Data.Add('step14=1');
    Data.Add('f_email14=' +Edit2.Text);
    Data.Add('f_lastName14=' +Edit3.Text);
    Data.Add('f_firstName14=' +Edit4.Text);
    Data.Add('f_middleName14=' +Edit5.Text);
    Data.Add('f_dateOfBirth14=' +Edit6.Text);
    Data.Add('f_inviteCodeA14=UT0C');
    Data.Add('f_inviteCodeB14=2P89');
    Data.Add('x=0');
    Data.Add('y=0');
    TwoPage := Http.Post('https://www.сайт.ru/ru/registration/personal/index.php?step=2', Data);