Consumo API JSON POST com FormPost do TFPHTTPClient

//USES fphttpclient, fpjson, opensslsockets;

procedure TForm1.Post;
var
  auxReq: TStringList;
  auxResposta: TStringStream;
  auxClient: TFPHTTPClient;
  auxJson: TJSONData;
begin
  auxClient := TFPHTTPClient.Create(nil);
  auxResposta := TStringStream.Create(EmptyStr);
  try
    auxClient.AllowRedirect := True;
    auxClient.AddHeader('Content-Type', 'application/x-www-form-urlencoded');
    auxClient.UserName := 'admin';
    auxClient.Password := 'admin';

    auxReq := TStringList.Create;
    try
      auxReq.Add('nome=Ribamar');
      auxReq.Add('idade=43');
      auxReq.Add('altura=1.82');
      auxReq.Add('nascimento=13/06/1979');

      auxClient.FormPost('https://ribasoft.com.br/api/teste_post.php', auxReq, auxResposta);
    finally
      FreeAndNil(auxReq);
    end;

    auxJson := GetJSON(auxResposta.DataString);
    try
      Riba.Aviso(auxJson.AsString);
    finally
      FreeAndNil(auxJson)
    end;
  finally
    FreeAndNil(auxClient);
    FreeAndNil(auxResposta);
  end;
end;