procedure TForm1.Button2Click(Sender: TObject);
const
url = 'https://api.textanywhere.com/API/v1.0/REST/sms';
var
postJson: TJSONObject;
reciparr: TJSONArray;
responseData: String;
begin
postJson := TJSONObject.Create;
postJson.Add('message_type', 'GP');
postJson.Add('message', 'Test message');
reciparr := TJSONArray.Create;
reciparr.Add('+44 phone number'); //add another phone number: reciparr.Add('another phone number');
postJson.Add('recipient', reciparr);
postJson.Add('sender', 'XX');
postJson.Add('scheduled_delivery_time', '20211223101010');
postJson.Add('order_id', '12344');
postJson.Add('returnCredits', true);
with TFPHttpClient.Create(Nil) do
try
AddHeader('Content-Type', 'application/json');
AddHeader('Connection', 'Keep-Alive');
AddHeader('user_key', key);
AddHeader('session_key', session);
RequestBody := TStringStream.Create(postJson.AsJSON);
responseData := Post(url);
finally
Free;
end;
memo1.Lines.Add(responseData);
end;