[Sharky]

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    IdSSLIOHandlerSocket1: TIdSSLIOHandlerSocket;
    IdHTTP1: TIdHTTP;
    IdConnectionIntercept1: TIdConnectionIntercept;
    Button1: TButton;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
form1.IdConnectionIntercept1:=form1.IdHTTP1.Intercept;
form1.IdHTTP1.Port:=443;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
tL: TStringList;
s: String;
begin
tL := TStringList.Create;
tL.Add('text=Акаунт');
tL.Add('password=маой пас');
form1.IdHTTP1.Request.Referer:='https://stat.spark-com.ru/';
try
   s := IdHTTP1.Post('https://stat.spark-com.ru/?lang=ru',tL);
finally
   tL.Free;
end;
memo1.Lines.Add(s);
  end;




end.

в папку с проектом положил 2 Dll ки а именно ssleay32.dll и libeay32.dll
скачал и поставил Indy 9 и все равно не пашет выскакивает ошибка на отладчике . отладчик ругается на строку :

Код:

s := IdHTTP1.Post('https://stat.spark-com.ru/?lang=ru',tL);

что не так я не понимаю
в нете подобных вопросов много а ответа четкого нету (((