我正在尝试通过网站提供的API连接到短信服务器。我使用这个代码，ApiKey通过该sms服务器站点提供。
但我得到这个错误：
无法加载SSL库
代码：

procedure TMainF.Button1Click(Sender: TObject);
var params:TStringList;
   JsonObj:TJSONObject;
   ResStr:String;
   idHttp:TIdHTTP;
begin
 params:=TStringList.Create;
 IdHTTP:=TIdHTTP.Create;
 IdHTTP.Request.BasicAuthentication:=False;
 IdHTTP.Request.ContentType:='application/json';
 IdHTTP.Request.CharSet:='utf-8';
 IdHTTP.Request.Accept:='application-json';
 IdHTTP.Request.CustomHeaders.Values['Authorization']:='BASIC APIKEY:'+EditApi.Text;
 try
  resStr:=IdHTTP.Post('https://sms.XSite.ir/Apiv2/User/Credit',params);
 finally
  idHttp.Free;
 end;
 JsonObj:=TJSONObject.ParseJSONValue(ResStr) as TJSONObject;
 Memo1.Text:=ResStr;
 if JsonObj <> nil then
  try
   Memo1.Lines.Add(JsonObj.Values['Amount'].Value);
  finally
   JsonObj.Free;
  end;
 end;

此代码应显示剩余的信贷