如何使用Delphi代码发送短信

uses
  IdHTTP, IdSSLOpenSSL;

function SendSMS(const phoneNumber, message: string): Boolean;
var
  http: TIdHTTP;
  ssl: TIdSSLIOHandlerSocketOpenSSL;
  url, apiKey, templateId: string;
begin
  Result := False;

  // 设置API密钥和短信模板ID
  apiKey := 'your_api_key';
  templateId := 'your_template_id';

  // 构建请求URL
  url := 'https://sms.tencentcloudapi.com/?Action=SendSms' +
         '&PhoneNumber=' + phoneNumber +
         '&TemplateID=' + templateId +
         '&TemplateParamSet.0=' + message +
         '&SmsSdkAppid=' + apiKey +
         '&Sign=' + 'your_sign' +
         '&Region=' + 'your_region';

  // 创建HTTP请求对象
  http := TIdHTTP.Create;
  ssl := TIdSSLIOHandlerSocketOpenSSL.Create(http);
  try
    // 设置SSL
    http.IOHandler := ssl;

    // 发送POST请求
    http.Post(url, nil);

    // 解析返回结果，判断短信是否发送成功
    // 这里需要根据短信服务商的API返回结果进行解析和判断

    Result := True;
  finally
    http.Free;
    ssl.Free;
  end;
end;