Exemplo de utilização de API Rest de cotação de moedas, por meio do VsScripter

uses
   // dá acesso ao conteúdo "unit" uPesquisaCotacao
   uPesquisaCotacao;

var
  // reserva espaço na memória para um objeto com o nome form que
  // herdará todas as características do formulário TfrmPesquisaCotacao
  form : TfrmPesquisaCotacao;

begin
  // início do ciclo de vida do "script"
  try

    // cria, efetivamente, um objeto com o nome form que herdará todas as
    // características do formulário TfrmPesquisaCotacao
    form := TfrmPesquisaCotacao.Create(nil);

    // monitora o status do objeto "form". Assim, quando as operações
    // finalizarem e o ModalResult do formulário for mrOk, o ciclo de vida
    // do "script" será finalizado. Qualquer ação que seja pretendida após o
    // final do "script", como mensagens ao operador, devem ser colocadas
    // entre o begin e o end logo abaixo
    if form.ShowModal = mrOk then
    begin
    end;

  // final do ciclo de vida do "script"
  finally

    // libera o objeto "form" da memória, destruindo todos os dados e objetos
    // criados nele.
    form.Free;
  end;
end;

{$FORM TfrmPesquisaCotacao, uPesquisaCotacao.sfm}

uses
  uVsHttpRequest, IdSSLOpenSSL, uLkJson, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, VsMask, System;

var
  http: TVsHttp;
  SSL1 : TIdSSLIOHandlerSocketOpenSSL
  cUrl : String;
  obj : TlkJSONobject;

Function buscarMoedas(moedas: String):String;
begin
  http := TVsHttp.Create;
  cUrl := Format('https://economia.awesomeapi.com.br/%s', [moedas]);

  //somente necessário para https          
  SSL1 := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  IdSSLOpenSSL.UnLoadOpenSSLLibrary();

  try
    //essas opções vai de cada servidor    
    SSL1.SSLOptions.Method := sslvTLSv1_2;   
    SSL1.SSLOptions.SSLVersions := [sslvTLSv1_2];//, sslvTLSv1, sslvSSLv23, sslvTLSv1_1, sslvTLSv1_2];

    //associando o SSL ao componente de conexão
    http.SetIOHandler(SSL1);
    
    //primeira consulta get simples
    Result := http.get(cUrl);
    
    // Se precisar analisar o retorno, remover comentário do comando abaixo
    //showMessage(Result);

  finally
    SSL1.free;                                      
    http.free;
  end;           
end;

function trocaPonto(valor: String):String
var
  x: Integer;
  nStr: String;
begin
  nStr := '';
  for x:=1 to length(valor) do
    begin
      if copy(valor, x, 1) <> '.' then
        nStr := nStr + copy(valor, x, 1)
      else
        nStr := nStr + ',';
      end;
  Result := nStr;
end;

procedure btnPesquisarClick(Sender: TObject);
var                                                 
  obj   : TlkJSONobject;
  json  : WideString;
  jsonL : TlkJSONlist;
  jsonO : TlkJSONobject;
  i     : Integer;

begin
  try
    // recebe o json relativo à conversão das moedas.
    json := UTF8Encode((buscarMoedas(cboEscolherCotacao.Items[cboEscolherCotacao.ItemIndex])));

    // se json não estiver vazio e não conter '#erro' em seu conteúdo.
    if ((Length(json) > 0) and (Pos('#erro', lowercase(json)) = 0)) then
    begin
      // transforma o conteúdo de json em uma lista JSON
      jsonL := TlkJSON.ParseText(Json) as TlkJSONlist;

      // verifica se a lista foi criada com sucesso
      if assigned(jsonL) then
      begin

        // cria um 'loop' para processar todos os itens da lista Json
        for i:=0 to jsonL.count-1 do
        begin

          // cria um objeto json, equivalente a um registro
          jsonO := jsonL.child[i] as TlkJSONobject;

          // com a função ValorParaTela, os valores dos campos do formulário
          // são atribuídos de acordo com os valores dos campos no objeto json
          FFormPadraoU_COTACAOMOEDAS.ValorParaTela('MOEDABASE', jsonO.Field['code'].value);
          FFormPadraoU_COTACAOMOEDAS.ValorParaTela('MOEDADESEJADA', jsonO.Field['codein'].value);
          FFormPadraoU_COTACAOMOEDAS.ValorParaTela('NOMECONVERSAO', jsonO.Field['name'].value);
          FFormPadraoU_COTACAOMOEDAS.ValorParaTela('VALORMAXIMO', trocaPonto(jsonO.Field['high'].value));
          FFormPadraoU_COTACAOMOEDAS.ValorParaTela('VALORMINIMO', trocaPonto(jsonO.Field['low'].value));
          FFormPadraoU_COTACAOMOEDAS.ValorParaTela('PCTVARIACAO', trocaPonto(jsonO.Field['pctChange'].value));
          FFormPadraoU_COTACAOMOEDAS.ValorParaTela('PRECOCOMPRA', trocaPonto(jsonO.Field['bid'].value));
          FFormPadraoU_COTACAOMOEDAS.ValorParaTela('PRECOVENDA', trocaPonto(jsonO.Field['ask'].value));
          FFormPadraoU_COTACAOMOEDAS.ValorParaTela('VARIACAO', trocaPonto(jsonO.Field['varBid'].value));
          FFormPadraoU_COTACAOMOEDAS.ValorParaTela('DATACOTACAO', jsonO.Field['create_date'].value);
        end;                                                                                          
      end else
             // se a lista JSON não for criada
             ShowMessage('Não carregou a conversão de moedas.');
    end else
        // se existir alguma mensagem de erro, ela é mostrada ao usuário
        if Pos('#erro', lowercase(json)) > 0 then
            ShowMessage(Format('Erro retornado: %s', [UTF8Encode(json)]));
  finally
    // finaliza os objetos criados e retorna a constante mrOk para indicar que o
    // processo finalizou.        
    jsonL.Free;         
    ModalResult := mrOk;
  end;                               
end;