Редирект

[danil123]

нет, библиотеки в наличии

[danil123]

проблема актуальна. Неужели никто не знает ответа? весь гугл перерыл, ничего конкретного

[danil123]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdCookieManager, IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack,
  IdSSL, IdSSLOpenSSL, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    IdHTTP1: TIdHTTP;
    IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
    IdCookieManager1: TIdCookieManager;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var list:tstringlist;
s:string;
begin
{IdSSLIOHandlerSocketOpenSSL1:=TIdSSLIOHandlerSocketOpenSSL.Create(self);
idhttp1.IOHandler:=IdSSLIOHandlerSocketOpenSSL1;
idhttp1.ProtocolVersion:=pv1_0;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvSSLv2;}
list:=tstringlist.Create;
list.Add('email='+edit1.text);
idhttp1.post('https://www.ea.com/ru/profile/register',list);
s:=idhttp1.Response.location;

С тем, что в комментарии пишет error connecting with ssl.
Если оставить кусок закоментированным, ошибка socket error#0.