Обновление модуля для Яндекс.Метрики.

{Возвращает информацию о целях счетчика.}
  function GetGoals(id: integer):string;
{возвращает информацию по цели}
  function GetGoalInfo(id,goal_id:integer):string;
{Возвращает информацию о фильтрах счетчика.}
  function GetFilters(id: integer):string;
{Возвращает информацию об указанном фильтре счетчика.}
  function GetFilterInfo(id, filter_id:integer):string;
{Возвращает информацию об операциях счетчика.}
  function GetOperations(id: integer):string;
{Возвращает информацию об указанной операции счетчика.}
  function GetOperationInfo(id, operation_id:integer):string;
{Возвращает информацию о разрешениях на управление счетчиком и просмотр статистики.}
  function GetGrants(id: integer):string;
{Возвращает информацию об указанном разрешении на управление счетчиком и просмотр статистики.}
  function GetGrantInfo(id:integer; user_login:string):string;
{Возвращает список представителей, которым предоставлен полный доступ к аккаунту текущего пользователя}
  function GetDelegates():string;
{Возвращает список аккаунтов, представителем которых является текущий пользователь.}
  function GetAccounts():string;

function TYandexMetrica.POSTCommand(Method: string;
  Params: TStringList): string;
var
  URL, ParamsStr, outFormat: string;
  Data: TStringStream;
begin
  if not FAuthorizer.Authorized then
    Exit;
  outFormat :=GetEnumName(TypeInfo(TOutputFormat), ord(OutputFormat));
  outFormat := Copy(outFormat, 3, Length(outFormat) - 2);
  URL := Format(cApiURL, [Method, LowerCase(outFormat),FAuthorizer.OAuthToken]);
  Data := TStringStream.Create;
  try
    with THTTPSend.Create do
    begin
      Params.SaveToStream(Document);
      MimeType:=GetMimeType;
      Headers.Add('Accept : '+GetMimeType);
      if HTTPMethod('POST', URL) then
      begin
        Data.LoadFromStream(Document);
        Result := Data.DataString;
      end
      else
        raise Exception.Create('Ошибка отправки запроса');
    end;
  finally
    Data.Free;
  end;
end;

var Params: TStringList;
begin
  Params:=TStringList.Create;
  Params.Add('{"counter":{"site":"www.example.ru"}}');
  ShowMessage(POSTCommand('counters',Params));
end;