program Yandex.Balaboba;
uses
System.SysUtils,
System.Classes,
System.Json,
System.Net.HttpClient;
begin
var Payload := TStringStream.Create;
var Response := TStringStream.Create;
var JSON := TJSONObject.Create;
with THTTPClient.Create do
begin
ContentType := 'application/json';
JSON.AddPair('filter', '1');
JSON.AddPair('into', '0');
JSON.AddPair('query', 'Пошёл я как-то гулять');
Payload.WriteString(JSON.ToJSON);
Payload.Position := 0;
Post('https://zeapi.yandex.net/lab/api/yalm/text3', Payload, Response);
var ResponseJSON := TJSONObject.ParseJSONValue(Response.DataString);
Writeln(ResponseJSON.ToString);
end;
Readln;
end.