Delphi是一個優秀的開發工具，可以幫助程序員快速、高效地開發各種應用程序。其中，JSON格式已經成為現代應用程序中最常用的數據交換格式之一。在Delphi中，通過使用RESTful API可以輕松地發送短信，本文將介紹在Delphi中如何發送短信。

首先需要引入以下單元：

REST.Client
REST.Types
System.JSON
System.Net.HttpClient
System.Net.HttpClientComponent

接下來，就可以通過以下代碼發送短信了：

procedure SendSMS(const Mobile: string; const Content: string);
var
LHTTPClient: THTTPClient;
LRequest: TRESTRequest;
LResponse: IHTTPResponse;
LJSON: TJSONObject;
begin
LHTTPClient := THTTPClient.Create;
try
LRequest := TRESTRequest.Create(nil);
try
LRequest.Method := TRESTRequestMethod.rmPOST;
LRequest.Client := LHTTPClient;
LRequest.Resource := 'http://api.sms.com/sms/send';
LRequest.AddParameter('mobile', Mobile);
LRequest.AddParameter('content', Content);
LResponse := LRequest.Execute;
LJSON := TJSONObject.ParseJSONValue(LResponse.Content) as TJSONObject;
try
if LJSON.GetValue('status').Value = 'success' then
ShowMessage('短信發送成功！')
else
ShowMessage('短信發送失敗：' + LJSON.GetValue('reason').Value);
finally
LJSON.Free;
end;
finally
LRequest.Free;
end;
finally
LHTTPClient.Free;
end;
end;

代碼中的參數Mobile和Content分別表示手機號碼和短信內容。在發送短信之前，需要先創建一個THTTPClient對象，然后使用TRESTRequest對象來執行POST操作。在請求完成后，通過TJSONObject來解析響應內容，并根據返回結果來判斷短信是否發送成功。如果發送成功，則彈出提示窗口；如果發送失敗，則顯示失敗原因。

總之，Delphi可以很方便地使用RESTful API來發送短信，只需要添加必要的單元并編寫相應的代碼即可。相信通過這篇文章，讀者可以對Delphi JSON發短信有更深入的了解。