Ошибка: Error connection with SSL

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdIOHandler, IdIOHandlerSocket, IdSSLOpenSSL, IdBaseComponent,
  IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, StdCtrls;
 
type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    IdSSLIOHandlerSocket1: TIdSSLIOHandlerSocket;
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
g1:Tstringlist;
begin
g1:=Tstringlist.Create;
g1.text:=IdHTTP1.get('https://vagon1520.ru/check?id=57616310');
memo1.Lines.AddStrings(g1);
g1.Free
end;
 
end.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
   IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL, IdBaseComponent,
   IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, httpsend, ssl_openssl;
 
type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    http: THTTPSend;
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  http := THTTPSend.Create;
  Http.Sock.CreateWithSSL(TSSLOpenSSL);
  Http.Sock.SSLDoConnect;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  g1: Tstringlist;
begin
  g1 := Tstringlist.Create;
  memo1.Clear;
  try
    //g1.text := IdHTTP1.get('https://vagon1520.ru/check?id=57616310');
    //IdHTTP1.get('https://www.google.com/', ms);
    http.HTTPMethod('GET', 'https://vagon1520.ru/check?id=57616310');
    Memo1.Lines.LoadFromStream(http.Document);
    //memo1.Lines.AddStrings(g1);
  except
    ShowMessage('Время операции превышено..');
  end;
  g1.Free;
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  http.Free;
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  httpsend, ssl_openssl, ssl_openssl_lib, StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  g1: Tstringlist;
  http: THTTPSend;
begin
  g1 := Tstringlist.Create;
  http := THTTPSend.Create;
  try
    if http.HTTPMethod('GET', 'https://vagon1520.ru/check?id=57616310') then
    begin
      g1.LoadFromStream(http.Document);
      memo1.Lines.AddStrings(g1);
    end;
  finally
    http.Free;
    g1.Free;
  end;
end;
 
end.