json запрос

[Q15]

Здравствуйте. Как отправить json запрос на Delphi?

delphi xe5

Делаю так:

procedure TForm1.Button1Click(Sender: TObject);
begin
 
idHTTP1.Request.CustomHeaders.Add('Connection:keep-alive');
idHTTP1.Request.CustomHeaders.Add('Accept:application/json, text/plain, */*');
idHTTP1.Request.CustomHeaders.Add('Origin:ссылка');
idHTTP1.Request.CustomHeaders.Add('X-API-VERSION:2');
idHTTP1.Request.CustomHeaders.Add('User-Agent:Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/49.0.2623.112 Safari/537.36');
idHTTP1.Request.CustomHeaders.Add('Content-Type:application/json;charset=UTF-8');
idHTTP1.Request.CustomHeaders.Add('Referer:ссылка');
idHTTP1.Request.CustomHeaders.Add('Accept-Encoding:gzip, deflate');
idHTTP1.Request.CustomHeaders.Add('Accept-Language:ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4');
 
data:=TStringList.Create;
data.Add('ssid_token='+ssid_token);
data.Add('grant_type=password');
data.Add('username=юзернейм');
data.Add('password=пароль');
data.Add('check_ip=False');
data.Add('client_id=web-client');
data.Add('client_secret=клиент секрет');
 
a:=Form1.IdHTTP1.Post('ссылка', data);
Form1.Memo1.Lines.Add(a);
end;

или так:

procedure TForm1.Button1Click(Sender: TObject);
begin
 
idHTTP1.Request.CustomHeaders.Add('Connection:keep-alive');
idHTTP1.Request.CustomHeaders.Add('Accept:application/json, text/plain, */*');
idHTTP1.Request.CustomHeaders.Add('Origin:ссылка');
idHTTP1.Request.CustomHeaders.Add('X-API-VERSION:2');
idHTTP1.Request.CustomHeaders.Add('User-Agent:Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/49.0.2623.112 Safari/537.36');
idHTTP1.Request.CustomHeaders.Add('Content-Type:application/json;charset=UTF-8');
idHTTP1.Request.CustomHeaders.Add('Referer:ссылка');
idHTTP1.Request.CustomHeaders.Add('Accept-Encoding:gzip, deflate');
idHTTP1.Request.CustomHeaders.Add('Accept-Language:ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4');
 
 
data:=TStringStream.Create;
b:='{"ssid_token":"'+ssid_token+'","grant_type":"password","username":"юзернейм","password":"пароль","check_ip":"False","client_id":"web-client","client_secret":"клиент секрет"}';
data.Write(b, Length(b)*SizeOf(Char));
 
a:=Form1.IdHTTP1.Post('ссылка', data);
Form1.Memo1.Lines.Add(a);
end;

В обоих случаях выдает ошибку 400 bad request
Подскажите, как правильно отправлять json запросы в delphi?

[PTyTb32]

function TfOWN.reqestAPI(method, rq: string): string;
var
  http: TIdHTTP;
  iossl: TIdSSLIOHandlerSocketOpenSSL;
  request: TStringStream;
  ot, s: string;
begin
  http := TIdHTTP.Create(nil);
  iossl := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  http.IOHandler := iossl;
  http.request.Connection := 'Keep-Alive';
  http.request.ContentType := 'application/x-www-form-urlencoded';
  iossl.SSLOptions.method := sslvSSLv23;
  http.request.CustomHeaders.Add
    ('Authorization: Bearer xxx');
  request := TStringStream.Create;
  request.WriteString(rq);
  try
    ot := http.Post(apiURL + method, request);
  except
    on e: Exception do
    begin
      s := e.Message;
      if Pos('400', s) <> 0 then
      begin
        http.Free;
        iossl.Free;
        request.Free;
      end;
    end;
  end;
  Result := ot;
  http.Free;
  iossl.Free;
  request.Free;
end;

apiURL это константа "https://website.ru/api"
method это метод "parametr/data"
rq содержит параметры в формате json