const (
    token   = "just_place_token_here"
    timeout = time.Second * 3
    url     = "https://api-invest.tinkoff.ru/openapi/sandbox/sandbox/register"
)

func main() {
    client := &http.Client{
        Timeout: timeout,
    }

    req, err := http.NewRequest("POST", url, nil)
    if err != nil {
        log.Fatalf("Can't create register http request: %s", err)
    }

    req.Header.Add("Authorization", "Bearer "+token)
    resp, err := client.Do(req)
    if err != nil {
        log.Fatalf("Can't send register request: %s", err)
    }

procedure TForm2.Button1Click(Sender: TObject);
var
  Param:TStringList;
  IdHTTP : TIdHTTP;
  Id_HandlerSocket : TIdSSLIOHandlerSocketOpenSSL;
begin
  Param:= TStringList.Create;
  IdHTTP := TIdHTTP.Create(Nil);
  Id_HandlerSocket := TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP);
  Try
    IdHTTP.Request.BasicAuthentication := False;
    IdHTTP.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0';

    Id_HandlerSocket.SSLOptions.Mode := sslmClient;
    Id_HandlerSocket.SSLOptions.Method := sslvSSLv23;
    IdHTTP.IOHandler := Id_HandlerSocket;

    with idhttp.Request do
    begin
      UserAgent:='Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/30.0.1599.13014 YaBrowser/13.12.1599.13014 Safari/537.36';
      Host:='https://api-invest.tinkoff.ru';
      Connection:='keep-alive';
    end;
    IdHTTP.Request.ContentType:= 'application/json';

    IdHTTP.Request.CustomHeaders.AddValue('"Authorization"', '"Bearer "' + token);
    Memo1.Text := IdHTTP.Post('https://api-invest.tinkoff.ru/openapi/sandbox/sandbox/register', Param);
  Finally
    Id_HandlerSocket.Free;
    IdHTTP.Free;
  End;
  Param.Free;
end;

func (c *RestClient) newRequest(ctx context.Context, method, url string, body io.Reader) (*http.Request, error) {
	req, err := http.NewRequest(method, url, body)
	if err != nil {
		return nil, errors.Errorf("can't create http request to %s", url)
	}

	req.Header.Set("Content-Type", "application/json")
	req.Header.Set("Authorization", "Bearer "+c.token)

	return req.WithContext(ctx), nil
}

func (c *RestClient) Accounts(ctx context.Context) ([]Account, error) {
	path := c.apiURL + "/user/accounts"

	req, err := c.newRequest(ctx, http.MethodGet, path, nil)
	if err != nil {
		return nil, err
	}

	respBody, err := c.doRequest(req)
	if err != nil {
		return nil, err
	}

	type response struct {
		Payload struct {
			Accounts []Account `json:"accounts"`
		} `json:"payload"`
	}

	var resp response
	if err = json.Unmarshal(respBody, &resp); err != nil {
		return nil, errors.Wrapf(err, "can't unmarshal response to %s, respBody=%s", path, respBody)
	}

	return resp.Payload.Accounts, nil
}

procedure TForm2.Button1Click(Sender: TObject);
var
  Param:TStringList;
  IdHTTP : TIdHTTP;
  Id_HandlerSocket : TIdSSLIOHandlerSocketOpenSSL;
begin
  Param:= TStringList.Create;
  IdHTTP := TIdHTTP.Create(Nil);
  Id_HandlerSocket := TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP);
  Try
    IdHTTP.Request.BasicAuthentication := true;

    Id_HandlerSocket.SSLOptions.Mode := sslmClient;
    Id_HandlerSocket.SSLOptions.Method := sslvSSLv23;
    IdHTTP.IOHandler := Id_HandlerSocket;

    with idhttp.Request do
    begin
      UserAgent:='Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/30.0.1599.13014 YaBrowser/13.12.1599.13014 Safari/537.36';
      Host:='https://api-invest.tinkoff.ru';
      Connection:='keep-alive';
    end;
    IdHTTP.Request.ContentType:= 'application/json';

    IdHTTP.Request.CustomHeaders.AddValue('"Authorization"', 'Bearer [token]');
    Memo1.Text := IdHTTP.Get('https://api-invest.tinkoff.ru/openapi/user/accounts');
  Finally
    Id_HandlerSocket.Free;
    IdHTTP.Free;
  End;
  Param.Free;
end;

procedure TForm2.Button1Click(Sender: TObject);
var
  Param:TStringList;
  IdHTTP : TIdHTTP;
  Id_HandlerSocket : TIdSSLIOHandlerSocketOpenSSL;
begin
  Param:= TStringList.Create;
  IdHTTP := TIdHTTP.Create(Nil);
  Id_HandlerSocket := TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP);
  Try
    Id_HandlerSocket.SSLOptions.Mode := sslmUnassigned;
    Id_HandlerSocket.SSLOptions.Method := sslvTLSv1;
    IdHTTP.IOHandler := Id_HandlerSocket;

    with idhttp.Request do
    begin
      Host:='api-invest.tinkoff.ru';
    end;

    IdHTTP.Request.ContentType:= 'application/json';

    IdHTTP.Request.CustomHeaders.Add('Authorization:Bearer [token]');
    Memo1.Text := IdHTTP.Get('https://api-invest.tinkoff.ru/openapi/user/accounts');
  Finally
    Id_HandlerSocket.Free;
    IdHTTP.Free;
  End;
  Param.Free;
end;