ICS HTTPS Cli 求救

之前一直用Delphi 7 + ICS V7 来做一些HTTPS的访问。今天测试了一下Delphi XE + ICS V7，发现有问题，无论怎么测试，总是提示 #10060的错误，查了一下原因是“连接超时”，但是浏览器或者Delphi 7都没有问题。请教各位，是什么原因造成的？代码如下unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OverbyteIcsWndControl, OverbyteIcsHttpProt,
  OverbyteIcsWSocket;type
  TForm1 = class(TForm)
    SslContext1: TSslContext;
    SslHttpCli1: TSslHttpCli;
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure SslHttpCli1RequestDone(Sender: TObject; RqType: THttpRequest;
      ErrCode: Word);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
    Memo1.Lines.Clear;
    SslHttpCli1.URL := 'https://www.guardiananytime.com/';
    SslHttpCli1.GetASync;end;procedure TForm1.SslHttpCli1RequestDone(Sender: TObject; RqType: THttpRequest;
  ErrCode: Word);
var
    Data : String;
begin
    SslHttpCli1.SendStream.Free;
    SslHttpCli1.SendStream := nil;    if ErrCode <> 0 then
    begin
        Memo1.Lines.Add('Failed with error #' + IntToStr(ErrCode));
        SslHttpCli1.RcvdStream.Free;
        SslHttpCli1.RcvdStream := nil;
    end;    if sslHttpCli1.StatusCode <> 200 then
    begin
        Memo1.Lines.Add('Failed with error: ' + IntToStr(SslHttpCli1.StatusCode) +
          ' ' + SslHttpCli1.ReasonPhrase);
        sslHttpCli1.RcvdStream.Free;
        sslHttpCli1.RcvdStream := nil;
        Exit;
    end;
    Memo1.Lines.Add('OK. Response was:');
    sslHttpCli1.RcvdStream.Seek(0, 0);
    SetLength(Data, sslHttpCli1.RcvdStream.Size);
    sslHttpCli1.RcvdStream.Read(Data[1], Length(Data));
    Memo1.Lines.Add(String(Data));
end;end.