так вы вместо post отправляете get только через post запрос или компонент сам все конвертирует в post ?
вот как-то так я отправляю post запросы (с другой оперы но всеже)
procedure TForm1.httppost(url: string; json: TStringList);
var
Return: IHTTPResponse;
aHeader: TURIParameters;
begin
with TNetHTTPClient.Create(nil) do
begin
try
SetLength(aHeader, 1);
aHeader[0] := System.Net.URLClient.TNameValuePair.Create('Authorization:key', Api_key);
UserAgent :=
'Mozilla/5.0 (X11; Linux x86_64; rv:45.0) Gecko/20100101 Firefox/45.0';
ContentType := 'application/json';
Return := Post(url, json,nil,nil, aHeader);
memo1.Lines.Add(Return.ContentAsString());
except
on E: Exception do
begin
end;
end;
Free;
end;
end;
procedure TForm1.sendpush(title, text, id, dev: string);
var
ADatas: TStringList;
s: string;
begin
if dev = 'android' then
s := 'data';
if dev = 'ios' then
s := 'notification';
try
ADatas := TStringList.Create;
ADatas.Add('{"reistration_ids":[' + id + '],"priority":"high","' + s +
'":"{"message":'+text+'","title":"'+title+'","vibrate":"1","sound":"1"}"}');
httppost('https://fcm.googleapis.com/fcm/send', ADatas);
finally
ADatas.Free;
end;
end;