如何在Delphi中发出HTTPS POST请求？

var
  IdHTTP: TIdHTTP;
  IdSSLIOHandler: TIdSSLIOHandlerSocketOpenSSL;
  Response: string;
begin
  IdHTTP := TIdHTTP.Create(nil);
  try
    IdSSLIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
    try
      IdHTTP.IOHandler := IdSSLIOHandler;
      IdHTTP.ProtocolVersion := pv1.1;
      Response := IdHTTP.Post('https://example.com/api', 'data=value');
    finally
      IdSSLIOHandler.Free;
    end;
  finally
    IdHTTP.Free;
  end;
end;

var
  RESTClient: TRESTClient;
  RESTRequest: TRESTRequest;
  Response: string;
begin
  RESTClient := TRESTClient.Create('https://example.com/api');
  try
    RESTRequest := TRESTRequest.Create(nil);
    try
      RESTRequest.Client := RESTClient;
      RESTRequest.Method := rmPOST;
      RESTRequest.AddParameter('data', 'value');
      RESTRequest.Execute;
      Response := RESTRequest.Response.Content;
    finally
      RESTRequest.Free;
    end;
  finally
    RESTClient.Free;
  end;
end;